;This collection of source code was typed (for typing practice 
; and as an educational exercise) from Volume 1 of THE SOURCE. 

; It contains all files required to construct a boot disk. Boot 
; sectors can be written with DEBUG (see version 6 documentation) 
;I have successfully assembled and booted "LS—DOS Level— xx" from 
; these source files. 

; The annotated source assembles without error using 

; Disk— Editor-Assembler (D—E-A) by D. Goben . Every Hex byte was 

; care fully compared to the original listing for correct 

; addresses . Slight modifications to arithmetic syntax and some 

; additional annotation were also made. 

;Also included is a simple filter program, ADDLF.EXE which adds 

; line feeds to carriage return. 

; usage: ADDCR <inp file. ASM >oup file. ASM 



;06 JAN 1998 

; Douglas Beattie Jr. <beattidp@whidbey. net> 



; BOOT 4 /ASM - LS-DOS 6.2 

ADISP ' <Boot strap Loader> ' 
■? 

; *MOD 



KEYIN EQU 


4 OH 




NMIVECT 


EQU 


66H 


DSPLY EQU 


21BH 




BUFFER 


EQU 


1200H 


BOOTBUF 


EQU 


43FFH-9 



Boot loader routine read in by ROM, along with 

the lowcore I/O drivers. 
This section loads in SYSRES 



;Set IY for FDCDVR use 
; Directory track is 
; the current track 



; Set retries 



LBOOT LD IY,DCT$ 

LD A, (IY+9) 

LD (IY+5) , A 

LD A, 4 

LD (FLGTAB$+'R'-'A' ) ,A 

LD A, 0C9H 

LD (FDDINT$) ,A ; Return for disk driver 

LD A, 18 ;5" sectors/track, dden 

BIT 5, (IY+4) ;Dbl sided? 

JR Z, NOTDBL 

ADD A, A ; Adjust to 36 sect/cyl 

NOTDBL LD (SECTRK) , A 



Set up for a fragmented file 





EXX 






LD 


C,6 




CALL 


GETEXT 




EXX 




/ 


CALL 


LOAD 




LD 


A, OFBH 




LD 


(DISKEI) , A 




JP 


(HL) 


r 

LOAD 


CALL 


RDBYTE 




DEC 


A 




JR 


NZ, LOAD 2 




CALL 


GETADR 


L0AD1 


CALL 


RDBYTE 




LD 


(HL),A 




INC 


HL 




DJNZ 


L0AD1 




JR 


LOAD 


r 

L0AD2 


DEC 


A 




JR 


Z, GETADR 




CALL 


RDBYTE 




LD 


B,A 


L0AD3 


CALL 


RDBYTE 




DJNZ 


L0AD3 




JR 


LOAD 



; Sectors/gran 

;Pick up extent 1 



;Read in SYSRES 

;EI instruction 
stuffed into FDCDVR 
; Continue system init 

; Get type code 

; Bypass if not type 1 

;Get blk len & load adr 
; Start reading the block 
; Stuff into memory 

; Bump memory pointer 

; Loop for entire block 

; Restart the process 

;Test if type 2 (traadr) 
;Ah, go if transfer addr 

; Assume comment, 
; get comment length 

; & ignore it 

; Continue to read 



got the transfer address type code 



GET ADR CALL RDBYTE 

LD B,A 

CALL RDBYTE 

LD L,A 

DEC B 

CALL RDBYTE 

LD H,A 

DEC B 
RET 



; Get block length 

; Get low-order byte 

;Adj length for this byte 

; Get high-order byte 
; Load address is formed 
;Adj length for this byte 



Routine to read a byte 



RDBYTE 


EXX 


INC 


L 


JR 


NZ, RDB2 


PUSH 


BC 


LD 


B,9 


CALL 


DCT$ 


POP 


BC 


INC 


E 


LD 


A,E 


SUB 


$-$ 


SECTRK 


EQU $■ 


JR 


NZ, RDB1 


LD 


E,A 


INC 


D 


RDB1 DEC 


B 



CALL Z, GETEXT 
RDB2 LD A, (HL) 

EXX 
RET 



; Switch memory /buf ptrs 
; Bump buf pointer 

; Bypass disk I/O if more 

; Read sector function # 
; Get another sector 

; Bump sector counter 

; Is this the last sector 
; on the cylinder? 

; Yes, restart at 
; & bump the cylinder up 
;Dec sectors this extent 
; Get next extent if 

;P/u a byte 
;Exc mem/buf pointers 



Load DE track, sector, B sectors this extent 



GETEXT EQU $ 

INC IX 

INC IX 

LD A, (IX+O) 

PUSH AF 
RLCA 
RLCA 
RLCA 

AND 7 

CALL MULTCA 

LD E,A 

POP AF 

AND 00011111B 

INC A 

CALL MULTCA 

LD B,A 

LD D, (IX-1) 
RET 



; Index directory entry 
;Pt at grans this ext . 

; Save for later 

; Normalize start gran 



; Start gran * grans/ sec 
; This is start sector 

; Get total grans 
; this extent 

■ * sect/gran 
; Sectors this extent 
;Cyl this extent 



Short multiply C * A 



MULTCA 


PUSH BC 


LD 


D,A 


XOR 


A 


LD 


B,8 


MLTCA ADD 


A, A 


SLA 


C 


JR 


NC,MLTCA1 


ADD 


A,D 


MLTCA1 


DJNZ MLTCA 


POP 


BC 


RET 





; Save sect/gran in C 



Initialize the MC6835 CRTC 



INITCRTC EQU $ 

LD BC, 15<8!88H 



LD 


HL, CRTCTAB 


$A1 LD 


A, (HL) 


OUT 


(C),B 


OUT 


(89H) ,A 


DEC 


HL 


DEC 


B 


JP 


P,$A1 


RET 




DB 


99 


DB 


80 


DB 


86 


DB 


8 


DB 


24 


DB 





DB 


24 


DB 


24 


DB 





DB 


9 


DB 


65H 


DB 


9 


DB 





DB 





DB 





CRTCTAB 


DB 


DS 


-$&OFFH%0 



; Count, CRTC address reg 
; Point HL to data table 

;Pass reg § to CRTC 

;Pass value to CRTC reg 
; Back up to next value 
; To next lower reg 



;Horiz total MD 

;Horiz displayed MD 

;Horiz sync position MD 

;Horiz sync width 

; Vertical total 

; Vertical total adjust 

; Vertical displayed 

; Vertical sync position 

; Interlace mode 

; Maximum scan line addr 

; Cursor start 

; Cursor end 

; Start address (H) 

; Start address (L) 

; Cursor (H) 

; Cursor (L) 



System BOOT entry point, loaded by ROM 



CORE$ DEFL $ 

ORG 4300H 
BOOT NOP 

CP 
DIRTRK 

DI 

LD 



14H /Directory track location 

EQU $-1 



A, 86H ;Bring up the RAM 

OUT (84H),A 
LD (OPREG$) , A ; 

LD HL,CRTBGN$ ; Clear video RAM 

LD DE, CRTBGN$+1 

LD BC, CRTSIZE-1 



LD (HL) , ' ' 

LDIR 

LD HL,NMIRET ; Set NMI vector 

LD (NMIVECT+1) , HL 

LD A, 0C3H 

LD (NMIVECT) , A 

LD A, 0C9H ;Stuff return for ints 

LD (38H),A 

; Read the first 16 sectors of track 

/ 

LD HL,START$+200H ; Pt to page 2 

LD D,L ; Init to track 0, sec 

LD E,L 

RDBOOT CALL RDSEQ ; Read a sector 

INC H ;Bump to next page 

INC E ; Bump to next sec 

LD A, 16 

CP E ; Loop if more 

JR NZ, RDBOOT 

CALL INITCRTC /Initialize the CRTC 

; Now set up to load SYSRES 

LD A, (DIRTRK) ;P/u dir cyl 

LD (DCT$+9) ,A ; Update DCT to show DIR 

LD D,A ; Set starting track and 

LD E, ; init to read the GAT 

CALL RDSECT ; into BUFFER 

LD A, (BUFFER+OCDH) ; Update DCT$ to show 

AND 2 OH ; The # of sides 

LD HL, DCT$+4 

OR (HL) 

LD (HL) , A 

LD E, 4 ;pt to SYSO dir sector 

CALL RDSECT ; Read the SYSO dir sec 

LD A, (BUFFER) ; Test if system disk 

AND 10H 

JR Z,NOTSYS ;Go if not 

LD HL,BUFFER+21+8 ; SYSO extent info 

LD DE,BOOTBUF ; Use 43FF-8 

LD BC, 8 

LDDR ; Store 1st four extents 

PUSH DE ;Pt IX to 1 byte 

POP IX ; before extent info 

EXX 

LD HL,BUFFER+255 ; Init to buffer end 

EXX 

JP LBOOT ;Load SYSRES 

DB 0,0 ; Padding for posn 

r 

; Routine to read a sector 

r 

RDSECT LD HL, BUFFER ; Set buffer 

RDSEQ LD B,5 ; Init retry counter 

RDS1 PUSH BC ; Save counter 

PUSH HL ; Save for retries 



CALL 


READ 


; Attempt read 


POP 


HL 




POP 


BC 




AND 


1CH 


/Mask status 


RET 


Z 


/Return if no error 


DJNZ 


RDS1 


/Loop for retry 


GOTERR 


LD HL,DISKERR ; "Disk error" 


DB 


ODDH 


/Hide next instruction 


NOTSYS 


LD HL,NOSYS ; "No system" 


LD 


BC, ERRLEN 




LD 


DE, 80*ll+CRTBGN$+35 ;Middle of screen 


LDIR 






HALTS JR 


HALTS 


/Wait for RESET 


r 

READ LD 


BC, 81F4H 


/Set DDEN, DS1, d.s. port 


OUT 


(C),B 


/Select it 


DEC 


C 


/Point C to data reg 


LD 


A, 18H 


/Seek command (6 ms) 


BOOTST$ EQU $-1 


/Set for boot step rate 


IF 


BOOTST$ . NEQ 


. 439DH 


ADISP 


'Bootstep out of position ' 


END IF 






OUT 


(C),D 


/Set desired track 


CALL 


FDCMD 


/Pass command & Delay 


SEEK1 IN 


A, (OF OH) 


/Get status 


BIT 


0,A 


/Busy? 


JR 


NZ, SEEK1 




LD 


A,E 


/Set sector register 


OUT 


(0F2H) ,A 




LD 


A, 81H 


/Set DDEN & DS1 


OUT 


(0F4H) ,A 




PUSH 


DE 




LD 


DE,2! (81H!40H)<8 ;D=DS1 + DDEN + WSGEN 






/ E=Mask to see DRQ 


LD 


A, 8 OH 


;FDC READ command 


CALL 


FDCMD 


/Pass to ctrlr £ set B=0 


LD 


A, OCOH 


/Enable INTRQ & timeout 


OUT 


(0E4H) ,A 




READLP1 


IN A, (OFOH) ;Grab status 


AND 


E 


/Test bit 1 


JR 


Z, RE AD LP 1 




INI 






LD 


A,D 


/Set DDEN & DS1 & WSGEN 


READLP2 


OUT (0F4H),A ; Continue to select 


INI 




; While inputting 


JR 


NZ, READLP2 




JR 


$ 


/Wait for NMI 


NMIRET 


POP DE 


/Pop interrupt ret 


POP 


DE 


/Restore DE 


XOR 


A 


/Disable INTRQ & timeout 


OUT 


(0E4H) ,A 




LD 


A, 81H 


; Reselect drive 


OUT 


(0F4H) ,A 




IN 


A, (OFOH) 


/Get status 


RET 






FDCMD OUT 


(OFOH) , A 


/Give cmd to ctrlr 


LD 


B,24 


; Time delay 



DJNZ 


$ 


RET 




DISKERR DB 


'Disk error' 


NOSYS DB 


'No system ' 


ERRLEN 


EQU $ -NOSYS 


DS 


-$&OFFH%0 


ORG 


CORE $+2 5 6 


END 





; Length of error msg 



; CLOCKS /ASM - LS-DOS 6.2 

ADISP ' <Heartbeat & Bank handling> ' 



*MOD 



Model IV time clock & blinking cursor 



TIMETBL 
TIMTSK$ 

LD 

OR 

LD 

JR 

BIT 
RES 
JR 
INC 
BIT 
JR 
RES 
BIT 
JR 
SET 
NOSOLID CALL 



60, 60,24, 30 ; Sec/min, min/hr, hr/day 
$ 

; If cursor not on, 

; then don't blink 

; Point to video flag 



DB 

EQU 

A, (CRSAVE) 

A 

HL, VFLAG$ 

Z, $H2 

; Check if blinking 
7, (HL) ; Check system INHIBIT 

7, (HL) ;Allow blink next time 

NZ, $H2 

(HL) /Increment the counter 

3, (HL) ; & see if to 8 

Z,$H2 ;Not this time 

3, (HL) ; Reset counter 

6, (HL) ; Check if SOLID cursor 

Z, NOSOLID ;If not, then blink 
5, (HL) ; Force SOLID mode 



ENADIS_DO_RAM 



; Bring up the video RAM 



$H1 
$H2 



LD 

XOR 

LD 

AND 

LD 

LD 

JR 

LD 

LD 

LD 

DEC 

RET 

IF 

LD 



HERTZ$ 



ELSE 
LD 



HERTZ$ 



$H3 



TIMER1 



END IF 
BIT 
JR 
LD 

PUSH 
LD 
LD 
LD 
I 
LD 
SUB 
RET 
LD 
INC 



A, (HL) 
2 OH 

(HL) , A 
2 OH 

DE, (CURSOR) 
A, (CRSAVE) 
NZ, $H1 
A, (CRSCHAR) 

(DE) , A 

IX, TIMETBL 

(IX+3) 
NZ 
@HZ50 

(IX+3) , 25 
EQU $-1 

(IX+3) , 30 
EQU $-1 

4, (HL) 

Z,$H3 

DE, CLOCK 

DE 

B,3 

HL, TIME$ 

DE, TIMETBL 

INC (HL) 

A, (DE) 

(HL) 
NZ 

(HL),A 
L 



; Grab the toggle bit 
; and flip it 

;Was it on? 

; Get the cursor pos 

; and char under cursor 

; Put character if flip on 
; else put the cursor 

; Put the char 
; Point to data area 

; Count down by 30 
; Back if not one second 

; Set for 50 hertz 

; else use 60 hertz 
; Reset for one second 



;Is clock on? (VFLAG$) 
;Go if off 
; Set to display clock 



:Pt to max sec, min, hr 

; Bump time parm 

; Constant value into A 
; Subtract timer datum 
•Ret if not max 

; else set to 
:Pt to next datum 



INC E 
DJNZ TIMER1 

Update date at midnight 



; Loop thru 3 parms 



LD 


L, DATE 


LD 


DE,MAX 


INC 


(HL) 


INC 


L 


LD 


A, (HL) 


DEC 


L 


DEC 


A 


ADD 


A,E 


LD 


E,A 


LD 


A, (DE) 


CP 


(HL) 


RET 


NC 


LD 


(HL) , 1 


INC 


L 


INC 


(HL) 


LD 


A, (HL) 


SUB 


12+1 


RET 


C 


LD 


(HL) , 1 


DEC 


L 


DEC 


L 


INC 


(HL) 


RET 





FFH ; Point to day of the month 

1 ; Point to test table 

; Bump the day 

; Point to month 

; Get the month 

; Index into table 



;P/u max days 
; Is day in range ? 
;Return if it is 

; else reset day to 1 
; & bump the month 

; If went past 'Dec', 
; then need to fix 
; else return 

/Correct to 'Jan' 
; Backup to year 



Clock display processor 



CLOCK 



@TIME 

TIME1 
TIME2 

TIME3 



EQU 

CALL 

LD 

LD 

LD 

LD 

LD 

LD 

INC 

SUB 

JR 

ADD 

INC 

LD 

INC 

DEC 

RET 

LD 

INC 

DEC 

JR 



ENADIS_DO_RAM ; Bring up the video 

HL,CRTBGN$+69 ; CRT pos row 0, col 

DE,TIME$+2 ;Pt to hr of sc,mn,hr 

; Set the separator 

; Init for 3 fields 

; Get a field item 

; Init di spl ay 

; Bump until proper digit 



70 



C, ' : ' 
B,3 
A, (DE) 

(HL) , 2FH 

(HL) 

10 

NC, TIME3 

A, 10+' 0' 

HL 

(HL) ,A 
HL 
B 
Z 

(HL) , C 
HL 
DE 
TIME2 



;Add back 10, conv ASCII 
; Bump to next display 

; & stuff the digit 



; Back when done 8 

; else stuff separator 

;Pt to next time field 
; & loop 



Return formatted date, HL => user buffer 



@DATE LD DE,DATE$+2 ;Pt to dy of yr,mn,dy 

LD C, '/' 



JR. TIME1 ; Identical except HL 

r 

PCSAVE$ DW 00 ;PC at entry to RST 38H 

r 

; Dynamic Trace routine 

TRACE_INT EQU $ 

DW $+2 ;This TCB + 2 

LD HL, (PCSAVE$) ; Get interrupt PC value 

EX DE,HL ^Program counter to DE 

CALL ENADIS_DO_RAM ; Bring up the video 

LD HL,CRTBGN$+62 ; CRT locn row 0, col 63 

r 

} Hexadecimal display routine 



@HEX1 6 


LD A,D 


CALL 


@HEX8 


LD 


A,E 


QHEX8 PUSH 


AF 


RRA 




RRA 




RRA 




RRA 




CALL 


HXD1 


POP 


AF 


HXD1 AND 


OFH 


ADD 


A, 90H 


DAA 




ADC 


A, 4 OH 


DAA 




LD 


(HL) , A 


INC 


HL 


RET 





; Convert reg D to 
; two hex digits 
; Convert reg E to 
; two hex digits 
; Do left nybble first 



;Bits 0-3 stuffed in hex 
; Recall the byte 
; & use right nybble 
; Convert nybble to hex 



/ Stuff in (HL) 



Scan for PAUSE or BREAK & set KFLAG$ 



SHIFT 


EQU 


OF 4 8 OH 




IF 


@USA 


KB1 


EQU 
END IF 


OF 4 01 H 




IF 


@ GERMAN 


KB1 


EQU 
END IF 


UNKNOWN 




IF 


QFRENCH 


KB1 


EQU 
END IF 


UNKNOWN 


KB 7 


EQU 


OF 4 4 OH 


KCK@ 


CALL 


ENADIS_DC 




LD 


HL, KFLAG$ 




LD 


A, (SHIFT) 




AND 


7 




CPL 






BIT 


2, A 




RET 


Z 



4M ; Bring up the keyboard 
; Hang onto flag 
;P/u SHIFT row & ignore 
; CTRL key pressed 



;Back if CTRL 



Set carry flag if a SHIFT key is down 



ADD 


A,l 


CCF 




JR 


NC, KCK1 


LD 


A, (KB1) 


IF 


@USA 


BIT 


0,A 


END IF 




IF 


QINTL 


BIT 


4, A 


END IF 




JR 


Z, KCK1A 


SET 


1, (HL) 


JR 


KCK1A 



;Set CF if no SHIFT 
;Set CF if SHIFT 

;No pause if no SHIFT 

;Test for "@" 



/Foreign keyboard 

; Bypass if no "@" 
; Turn on pause bit 



Inhibit test of unshifted BREAK if nested ENA_DO 



KCK1 


LD 


A, (OPREG_SV_ 




SUB 


OFFH& (OPREG_ 




JR 


NZ, KCK1B 


KCK1A 


LD 


A, (KB7) 




BIT 


0,A 




JR 


Z, KCK1B 




SET 


2, (HL) 


KCK1B 


BIT 


2, A 




PUSH 


AF 




JR 


Z, KCK2 




JR 


C, KCK2 




LD 


A, (SFLAG$) 




BIT 


4, A 




JR 


NZ, KCK2 




SET 


0, (HL) 


KCK2 


POP 
RET 


AF 



_PTR) ;If not at highest level 
_SV_AREA+1) ; then don't allow 
; tasker BREAK handler 

; Check on BREAK & ENTER 
; Check on ENTER 

; Go if not 

; else note set 
; Is <BREAK> depressed? 

; Go if not 

; Ignore if unshifted 
; Permit break bit only 
if BREAK enabled? 

; Turn on BREAK bit 
;C=shift, NZ=break 



Routine to enable video RAM & change stack if necessary 



; *MOD 
ENADIS_DO_RAM 

DI 

LD 

PUSH 

POP 

LD 

LD 

ADD 

JR 



EQU 



; Can ' t while we test stack 
; Save HL but not on stack 
; Save AF 



(HLSAV) , HL 
AF 
HL 

(AFSAV) , HL 

HL , 0F3FCH . XOR . -1 ; Can ' t exceed X ' F3FC ' 
HL,SP 
NC, $11 



Switch to the system stack 



POP HL ; Transfer RET address 

LD (SPSAV) , SP ; Save stack pointer 

LD SP,STACK$-20H ; Keep room at top 

PUSH HL ;Put RET back 

$11 LD HL,DIS_DO_RAM ; Stack return to disable 

EX (SP),HL ; video RAM below RET 

PUSH HL 

LD HL, OPREG_SV_AREA 



OPREG_SV_PTR 



$12 



EQU 



INC 


HL 


LD 


A, (OPREG$) 


JR 


NC, $12 


AND 


7FH 


LD 


(HL) , A 


AND 


OFCH 


OR 


82H 


JR 


DOOPREG 



$-2 

; Get next save location 

;P/u port mask 

; Bypass if NC (no stack switch) 
; Strip bit 7 to use as flag 

; Save current state 
; Strip SEL1 & SELO 
;Set SEL1,0 = (1,0) & NZ cond 

; Set new assignment 



Routine to disable video RAM 



DIS_DO_RAM 
DI 
LD 

PUSH 
POP 
LD 
LD 
LD 
BIT 
SET 
DEC 



EQU 



■Interrupts off 
■Save off of stack 



(HLSAV) , HL 
AF 
HL ;Save AF 

(AFSAV) , HL 
HL, (OPREG_SV_PTR) 

A, (HL) ;P/u previous state 

7, A ; Test if we switch stack 

7, A ;Make sure PAGE is set 

HL 



DOOPREG 
LD 

OUT 
JR 



LD (OPREG_SV_PTR) , HL 

(OPREG$) ,A ; Restore port image 
; and the port 

(84H) ,A 
NZ, $13 



Switch back to the old stack 



SPSAV 

$13 

AFSAV 



HLSAV 



OPREG 



LD SP, $-$ 

EQU $-2 

LD HL, $-$ 

EQU $-2 

PUSH HL 

POP AF 

LD HL, $-$ 

EQU $-2 

EI 

RET 

_SV_AREA EQU $-1 

DB 0, 0, 0, 0, 0, 0, 0, 



; Get the old stack 

; Restore AF 

; Restore HL 
; Interrupts back on 



Bank selection SVC handler 

HL=> Transfer address for function B=0 

C => Bank request <0-2>; Set bit 7 to transfer 

B => Request function 

=> Select bank C 

1 => Reset in-use bit of bank C 

2 => Test in-use bit of bank C 

3 => Set in-use bit of bank C 



; *MOD 
@BANK 



EQU 
AND 



$ 
7FH 



; Strip possible bit 7 



$J0 



$J1 



CP 

JP 

DEC 
JP 
LD 
JR 
LD 
DEC 
JR 
DEC 
JR 
DEC 
PERRX JP 
LD 
CP 
RET 
LD 
CALL 
RET 
LD 
LD 
AND 
RLCA 
RLCA 
RLCA 
OR 
LD 
XOR 
LD 

PUSH 
LD 
BIT 
POP 
RET 
PUSH 
LD 
ADD 
POP 
JP 
CP 
RLA 
LD 
LD 
AND 
JR 
LD 
RRA 
CCF 
ADC 
RLCA 
RLCA 
RLCA 
RLCA 
LD 
LD 
AND 
OR 



$J2 



$J3 



2+1 

NC, PERR 

B 

M,$J3 

C, 86H 

Z,$J1 

C,4 6H 

B 

Z,$J1 

B 

Z,$JO 

B 

NZ, PERR 

A, (LBANK$) 

A 

B,A 

$J1 

NZ 

A,B 

C, 0C6H 

7 



C 

($J2+1),1. 
A 

A, 8 
HL 

HL, BUR$ 
0, (HL) 
HL 

HL 

HL, 8005H 

HL,SP 

HL 

C, PERR 

1 

B,A 

A, (BAR$) 

B 

NZ, PERRX 

A,B 



A,0 



B,A 

A, (OPREG$) 

08FH 

B 



; Bank out of range? 

; Parameter error 
; Check option 
; Go if bank select 
; Set for reset BUR$ 
; Go if function 1 
;Set for test BUR$ 

; Go if function 2 

;Go on set BUR$ 

; SVC parameter error 
;P/u current bank 



; Save the bank requested 
; Test if in use already 
;Back if error 
; Recall the request # 

;Set for set BUR$ 
; Strip to bank 0-7 
; Shift <0-2> to <3-5> 



; Merge the code type 

; Change the OP code 

; Init Z flag 

; Init "Device not avail 

;Don 't alter HL 

; Point to bank-used RAM 
; \\This opcode is altered 



; Ck if stack is in upper 
; bank area 



; Error if > X ' 7FFB ' 
Change <0, 1, 2, 3> 
to <1, 2, 4, 6> 
& save for later 
P/u Bank Avail RAM 
Is the bank installed? 
Error if not in machine 
Get the requested bank 
Change <1, 2, 4> to 
<0, 2, 3> {CF on 
switched to 2 & 4} 
Shift bits 0-1 

to 4-5 (MBIT0,1) 



; Save bit mask 
;P/u current memory 
; configuration & 
; mask off old & 



LD 


(OPREG$) , A ; 


OUT 


(84H) ,A 


LD 


A, (LBANK$) ; 


LD 


B,A 


LD 


A,C 


AND 


7FH ; 


LD 


(LBANK$) , A ; 


XOR 


c ; 


OR 


B 


LD 


C,A 


BIT 


7,C 


LD 


B,0 


RET 


z 


EX 


(SP) , HL 


CP 


A 


RET 




END 





merge the new 

; Switch the hardware 
Get the old bank # 

& save it 
P/vt new bank # 
Strip any bit 7 

& save new bank # 
Keep bit 7 
Merge in new bank # 

& replace into C 
Transfer to new bank? 
Init for invoke later 
No if bit 7=0 

; Exchange RET with new 

transfer & go to it 



; COPYCOM - File for Copyright COMment block 
COM '<*(C) 1982,83,84 by LSI*>' 

f 

END 



;DODVR/ASM - LS-DOS 6.2 

ADISP ' <Video Driver> 
■? 

; *MOD 

@ OP REG EQU 

CRTCADD EQU 

CRTCDAT EQU 

LINESIZ EQU 

NUMROWS EQU 

NEGLINE EQU 

CRTSIZE EQU 

RAMSIZE EQU 



84H 

88H 

89H 

80 

24 

-LINESIZ 

LINESIZ *NUMROWS 

2048 



; Mem mgt & video control 
; CRTC address port 
; CRTC data port 



CRTBGN$ EQU OF 80 OH 

CRTEND EQU CRTBGN$+CRTSIZE-1 



Driver entry point 



DODVR JR 

DW 

DB 

DW 

DW 
DODATA$ 
DO_MASK 
SCRPROT EQU 
TABS EQU 
CTL EQU 

IF 

DB 

END IF 

IF 

DB 

END IF 
CURSOR 
CRSAVE 
CRSCHAR 



; Branch around linkage 

; Last memory location used 

;DCB used 
; Reserved 



DOBGN 

DOEND 

3, <$D0' 

DODCB$ 



EQU $ 

EQU $-DODATA$ 

7 ;Bits 0-2: scroll protect 

3 ;Bit 3: 0=tabs, l=chars 

4 ; Bit 4, display controls 
@USA 





@INTL 
08 



; Space compression off 



DW CRTBGN$ 

DB 2 OH 

DB ' ' 



; Character under cursor 
; Cursor character 



Entry from SVC 15, @VDCTL 
@VDCTL JP @_VDCTL 

r 

; Continue regular driver functions 



DOBGN LD IX,DODATA$ 

CALL ENADIS_DO_RAM ; Bring up the video RAM 

JP C,$NO ;Go on 'GET' request 

CALL $N0 ; Handle cursor 

PUSH BC ;Need to save C 

LD A, C ; Get char to display 

BIT CTL, (IX+DO_MASK) /Display controls set? 

JR NZ,$N1A ;Go if so 

OR A ;Char a 0? 

JP Z, TGGLCTL ; Switch Bit CTL if so 

CP 20H /Video control char? 

JP C,DO_CONTROL ; Go if so 

$N1A CP OCOH ;Tab or special? 

JR C, DONORM ; Go on normal characters 



Character is => OCOH 

BIT TABS, (IX+DO_MASK) ; Tabs or spec chars 
JR Z,DO_TABS ;Go if video tabs 

Character is not tab expansion - do it 



; Display the char 
; Turn off CTL bit 

; Get orig char 

; Disable intr 
; If a cursor is on, then 
; we need to save the 
; current char & display 

; the cursor character 
; Save current char 
;Allow tasker to blink 



DONORM CALL DO_DSPCHAR 

RES CTL, (IX+DO_MASK) 

DO_RET POP BC 

DO_RETI DI 

LD A, (CRSAVE) 

OR A 

JR Z, $N1 

LD A, (DE) 

LD (CRSAVE) , A 

LD A, (VFLAG$) 

RES 7, A 

LD (VFLAG$) , A 

LD A, (CRSCHAR) ;P/u cusor character 

LD (DE),A ;Put it on the screen 

$N1 LD (CURSOR), DE ; Update cursor position 

CP A /Clear status 

LD A, C /Restore the char 

RET 



Perform a tab expansion {COH-FFH} 



D0_ 


TABS 


EQU $ 




SUB 


OCOH 




JR 


Z, DO_RET 




LD 


B,A 


$N2 


LD 


c, • ' 




CALL 


DO_DSPCHAR 




DJNZ 


$N2 




JR 


DO_RET 



/Compute spaces 
/Forget it if TAB(O) 
/Display requested 
; number of spaces 



; Routine to move the cursor to begin of line {29} 

r 

CRSBOL EQU $ 

EX DE,HL /Cursor addr to HL 

CALL ADDR1 /Find row, col 

LD L,A /set col to start 

JP ROWCOL_2_ADDR / Calc address of BOL 

r 

; Routines to turn on/off the cursor {14/15} 

r 

CRSON LD A, (DE) /Get screen character 

CRSOFF LD (CRSAVE) , A ; Save zero or CRT char 

RET 

; Routine moves bursor to start of video page {28} 

/ set to 80 column, and turns off inverse video 



CRSHOME 
LD 



EQU $ 
DE, CRTBGN$ 



; Home the cursor 



LD A, (MODOUT$) ; P/u the mask £ 

AND OFBH ; set to 80 cpl 

CALL SETMOD 

JR DO_INVERT_DIS ; Set to normal video 

r 

; Routine to backspace & erase cursor {08} 

BACKSPA EQU $ 

CALL CRSBKSP ; Backspace the cursor 

RET Z ; if not at start, 

LD C, ' ' ; put a space at 

JP PUT_@ ; at the new loc 'n 

r 

; Routine to backspace the cursor {24} 

r 

CRSBKSP EQU $ 

LD A, (MODOUT$) ; If double width chars, 

AND 4 ; need to do twice 

CALL NZ, $+3 

LD HL,CRTBGN$ ; See if at home position 

SBC HL,DE ; prior to adjusting 

RET Z 

DEC DE ; Decrement the cursor pos 

RET 

; Routine to move the cursor up one line {27} 

r 

CRSUP EQU $ 

LD HL,NEGLINE ;Move up one line 

JR MOVCRS 

r 

; Routine to move the cursor down on line {26} 

CRSDOWN EQU $ 

LD HL,LINESIZ ; Add the line length 

MOVCRS ADD HL,DE ; to the current pos 

LD A,H ;Make sure we did not 

CP CRTBGN$>8 ; go over the top 

RET C 

EX DE,HL ; & switch back to DE 

DEC DE ; Adjust for fall thru 

JP CRSFRWO 

; Set to 40 cpl mode {23} 

r 

SET40 LD A, (MODOUT$) ; Get image of the port 

OR 04H ; Merge in 40 cpl bit 

JR SETMOD 

r 

; Routines to parse control functions 

DO_CONTROL EQU $ 

LD HL,DO_RET ; Establish RET 

PUSH HL 

CP 8H ; Ba ckspa ce ? 

JR Z, BACKSPA 

CP OAH ;Line feed? 



JR 

SUB 

JP 

DEC 

JR 

DEC 

JR 

DEC 

JR 

DEC 

JR 

SUB 

JR 

DEC 

JR 

DEC 

JR 

DEC 

JR 

DEC 

JR 

DEC 

JR 

DEC 

JR 

DEC 

JP 

DEC 

JP 

DEC 

JP 

DEC 

JP 

XOR 

RET 



Z, $+4 ; is same as <ENTER> 

ODH ; Carriage return? 

Z, LINFEED 

A ; Cursor on ? 

Z, CRSON 

A ; Cursor off? 

Z, CRSOFF 

A /Reverse video? 

Z, DO_INVERT_ENA 

A 

Z, DO_INVERT_OFF 

4 



Z, TGGLTAB 

A 

Z, TGGLALT 

A 

Z, SET 40 

A 

Z, CRSBKSP 

A 

Z, CRSFRWD 

A 

Z, CRSDOWN 

A 

Z, CRSUP 

A 

Z, CRSHOME 

A 

Z, CRSBOL 

A 

Z, CLREOL 

A 

Z, CLREOF 

A 



; Swap tab/alternate? 

; Special/ 'alternate? 

;40 cpl? 

; Cursor backspace? 

; Cursor forward? 

; Cursor down ? 

; Cursor up? 

; Cursor home ? 

; Cursor BOL? 

; Clear to EOL? 



; Clear to end-of-frame? 
; Clear A reg . 



Routine to enable inverse video 



EQU $ 

; Set for Enable 
; Ignore next load 

EQU $ 

HL, (OPREG_SV_PTR) ; Real OPREG$ 
A, (HL) 
0F7H 
B 

(HL) , A 
A,B 



D0_ INVERT_ENA 

LD B, 8 

DB 21H 

DO_INVERT_DIS 

LD B, 

LD 

LD A, (HL) ;P/u OPREG mask 

AND 0F7H ; Strip bit 3 

OR B ; Set /reset invideo bit 

LD (HL) , A ; and restuff 

LD A,B ; Get mode mask byte 

RLCA ; Rotate left 4 times to 

RLCA ; make an 8 into 80H 

RLCA ; for inverse on 

RLCA /Inverse off remains 

DO_INVERT_OFF EQU $ 

LD (INVIDEO) , A ; Set the mask byte 

RET 



Routine to toggle display of controls 



TGGLCTL LD HL,DO_RET ; Establish ret addr 

PUSH HL 

LD A,10H ; Toggle bit 4 

DB 21H /Ignore next 



Toggle tabs & alternate character set 
; Toggle bit 3 



TGGLTAB EQU $ 

LD A, 8 

XOR (IX+DO_MASK) 

JR SETMASK 



;P/u mask value 



; Toggle special & alternate character set 

r 

TGGLALT EQU $ 

LD A, (MODOUT$) ;P/u port mask 

XOR 8 /Flip the bit 

SETMOD LD (MODOUT$) ,A ; Re save port mask 

OUT (OECH),A ; and send the byte 

RET 

; Display character <C> at current position 

DO_DSPCHAR EQU $ 

CALL PUT_@ /Display the Char 

; Routine to perform cursor forward £5} 



CRSFRWD 


EQU $ 


LD 


A, (MODOUT 


AND 


4 


JR 


Z, CRSFRWO 


INC 


DE 


CRSFRWO 


INC DE 


LD 


HL, CRT END 


SBC 


HL,DE 


RET 


NC 



CALL CRSUP 
PUSH DE 
DO_SCROLL EQU $ 



; need to do twice 

;Move cursor forward 

;Off the screen? 

;Back if not 

; Put cursor back on 

; Save cursor position 



$N4 



A, (IX+DO_MASK) 

SCRPROT 

HL, CRTBGN$ 

DE, CRTSIZE 
PUSH BC 
LD BC, LINESIZ 

A 

HL,BC 

DE,HL 

A 

HL,BC 

DE,HL 

A 

NZ, $N4 



LD 
AND 
LD 
LD 



INC 

ADD 

EX 

OR 

SBC 

EX 

DEC 

JR 



; Get scroll protect 

Point to CRT start 
P/u CRT size 



PUSH DE 



Set line size 
Adjust scroll protect 
Move logical start 
down one line 
and subtract one line 
from the CRT size for 
each protected line 
;Dec scroll protect 

; Loop until done 
; Save the move length 



PUSH 


HL 


SBC 


HL,BC 


EX 


DE,HL 


POP 


HL 


POP 


BC 


LDIR 




POP 


BC 


JR 


CLREOF1 



Save the move— from 
Move start back one 
line, Source = 
start + one 
Get back dest locn 
Scroll unprotected 
; Recover line size 

/ Clear to EOF from DE 



Set scroll protect value 

C = scroll protect <0-> 



SET_SCROLL 
LD 
AND 
LD 
LD 
AND 
OR 

SETMASK 

XOR 
RET 



B = 
SVC 



15, 
$ 



QVDCTL 



; Get user value 
/Make modulo 8 



EQU 

A,C 

7 

C,A 

A, (DODATA$) ;P/u current mask 

0F8H /Remove current scroll 

C /Merge in the new value 

LD (DODATA$) ,A / & reload mask 

A ; Z-flag return 



Routine to move down one line {10/13} 



LINFEED CALL CRSBOL /Move to BOL 

PUSH DE /Save cursor position 

CALL CRSDOWN /Move down one line 

OR A /Reset the carry flag 

LD HL, CRTEND+1 ; & check if off of 

SBC HL, DE ; the screen 

JR Z,DO_SCROLL /Scroll if so 

POP HL /Discard old position 

CLREOL PUSH DE /Save new cursor pos 

CALL CRSBOL / Get start of line 

LD HL,79 /Calculate end of line 

ADD HL,DE ; HL = end of line 

POP DE /DE = current position 

PUSH DE 

JR CLREOF2 /Clear the line 



Clear to the end of the frame 



CLREOF 


PUSH DE 


CLREOF1 


LD HL, 


CLREOF2 


LD A, ( 


SET 


5, A 


LD 


(DE) , A 


OR 


A 


SBC 


HL,DE 


JR 


Z, CLREOF 3 


PUSH 


BC 


LD 


B,H 


LD 


C,L 


LD 


H,D 



/Save current cursor pos 
END /Point to last RAM byte 
A, (INVIDEO) ;P/u normal/ reverse 
; & make it a space 

/Stuff the "space" 
/Reset carry for subtract 
/Calculate length 
/Back if at end already 

/Xfer length to BC 

/Xfer start to HL 



LD L,E 

INC DE ;Bump up by one 

LDIR ; Propagate the space 

POP BC 

CLREOF3 POP DE 
RET 

r 

; Routine to stuff the video cursor RAM address 

@VDCTL3 CALL ROWCOL_2_ADDR ; Calculate video address 

RET NZ ;Back on error 

DI ; Disable any video tasks 

LD (CURSOR), DE ; until cursor is updated 
RET 

r 

; Video control SVC processor 

r 

@_VDCTL EQU $ 

CALL ENADIS_DO_RAM ; Bring up the video RAM 

; Test if in Task processor 

f 

LD A, (NFLAG$) ;P/u NFLAG$ 

BIT 6, A /Test for task process 

JR NZ,VDCTL ; If so skip setup 

r 

; HANDLES @VDCTL screen setup for normal use 

PUSH DE 

CALL $N0 ; Normalize character at cursor 

POP DE ; Recover value 

PUSH DE 

CALL VDCTL ; Do function request 

PUSH AF ; Save the error status 

DI ; Stop video tasks tempy 

LD DE, (CURSOR) 

CALL DO_RETI ; Normalize screen and cursor 

POP AF 

POP DE 

RET 

f 

VDCTL LD A, 9 ; Check for VIDLINE, 

CP B ; function 9 

JR Z, VIDLIN 

LD A, 43 ; Prepare for user ERROR 

DEC B 

JR Z , GET_@_ROWCOL ; <Ch> from row-H, col-L 

DEC B 

JR Z,PUT_@_ROWCOL ; <Ch> to row-H, col-L 

DEC B 

JR Z,@VDCTL3 ;Set cursor to H,L 

DEC B 

JR Z , ADDR_2_R0WC0L ; Cursor row, col to H,L 

LD DE,CRTBGN$ ; Init to start of video 

DEC B 

JR Z,VIDM0V1 ;User RAM to video 

DEC B 



JR Z,VIDMOVE ; Video RAM to user 

DEC B 

JP Z, SET_SCROLL ; Set scroll protect 

DEC B 

RET NZ ; Return if bad request 

r 

; Establish cursor character 

r 

PUSH HL 

LD HL, CRSCHAR ; Point to cursor char storage 

LD A, (HL) ;P/u current cursor character 

LD (HL) , C ; & update with new one 

POP HL 

RET 

; VIDLIN routine function - 9 in register B 

r 

VIDLIN LD L, ; Always starts at col 

PUSH DE ; Save user buffer 

CALL ROWCOL_2_ADDR ; Get address into DE 

POP HL ; Recover user buffer 

RET NZ ;Quit on bad address 

INC C ; Check direction 

DEC C ; If Z then to screen 

JR Z,MOVLIN ;Set to go 

EX DE,HL ; Reverse direction 

MOVLIN LD BC,LINESIZ ; Set to go 

LDIR ;Move it 

XOR A ;Z on RET 

RET 

; Routine to move video RAM 

VIDMOVE LD A,H /Check on user buffer 

ADD A, 8 ; not above X'0F800' & 

CP 24H+8 ; not below X'2400' 

JR C, PERR 

EX DE,HL ;Xchng user buff er, screen 

VIDMOV1 LD BC,CRTSIZE ; Set for full screen xfer 

LDIR 

CP A ;Set Z flag 

RET 

; Routine to get the character at row, col 

r 

GET_@_ROWCOL EQU $ 

CALL ROWCOL_2_ADDR ; Get Address of req 

LD A, (DE) ;P/u the character 

RET ;Back on error or no error 

; Routine to halt blinking cursor & restore char 

$N0 PUSH HL 

LD HL, VFLAG$ 

SET 7, (HL) ; Disable blinking cursor 

POP HL 

LD DE, (CURSOR) ; Get cursor pos in DE 



LD 


A, (CRSAVE) 


OR 


A 


JR 


NZ, PUTAQDE 


LD 


A, (DE) 


RET 





;P/u saved character 
; If one is saved, put 
; it on screen, else 
; ignore it 

; Cursor no ON but get 
; character anyway 



Routine to put a character at row, col 



PUT_@_ROWCOL EQU $ 

CALL ROWCOL_2_ADDR 



; Get address of req 



RET 


NZ 


PUT_@ LD 


A,0 


INVIDEO 


EQU 


OR 


C 


PUTAQDE 


LD 


CP 


A 


RET 





$-1 



; Back on error 

; Merge in reverse video 



(DE),A ;Put the character 

; Set Z-flag for return 



Routine to calculate cursor position from row, col 



ROWCOL_2_ADDR EQU 


LD 


A, 79 


CP 


L 


JR 


C, PERR 


LD 


A,H 


CP 


24 


JR 


NC, PERR 


PUSH 


HL 


PUSH 


BC 


LD 


C,L 


LD 


B, CRTBGN$. 


LD 


HL, LINES I, 


CALL 


QMUL1 6 


LD 


H,L 


LD 


L,A 


ADD 


HL,BC 


EX 


DE,HL 


POP 


BC 


POP 


HL 


XOR 


A 


RET 




PERR LD 


A, 43 


OR 


A 


RET 





; Logical line length 
; Compare to column pos 

; Error if > 19 
;P/u row number 
; Number of screen rows 

; Error if > 24 



; Save column 



; Rows * line size 
; Shift to HL 

; Add in col & RAM start 
; Address to DE 



; Set Z flag 

; SVC parameter error 
; Set NZ condition 



Routine to get the row, col of video cursor 



ADDR_2_R0WC0L EQU $ 

LD HL, (CURSOR) ; Get addr into HL 

ADDR1 LD A,H ; Make address relative 

AND 7 ; to logical origin 

LD H,A 

LD A, LINESIZ ; Set divisor 

CALL QDIV1 6 

LD H,L ;Row to register H 

LD L,A ; Column to register L 



XOR A ; Set zero return code 

RET 
DOEND EQU $-1 
END 



;FDCDVR/ASM - LS-DOS 6.2 

AD ISP ' <F loppy Disk Driver > ' 



; HL=> buffer address 

; D=> track desired 

; E=> sector desired 

; C=> drive desired 

; B=> disk primitive command 

r 

WRNMIPORT EQU 0E4H ; NMI mask register 

FDCADR EQU OFOH ; FDC command 

FDCSTAT EQU OFOH ; FDC status 

TRKREG EQU 0F1H ; FDC track register 

SECREG EQU 0F2H ; FDC sector register 

DATREG EQU 0F3H ; FDC data register 

DSELCT EQU 0F4H ; Drive select port 



Disk Driver Entry Point 



FDCDVR 



DW 
DB 



JR FDCBGN 

FDCEND 

3, <$FD' 



; Branch to entry code 
; Last byte used 
; Module name 



Automatic density recognition and retry density switch 



SWDEN 


EQU 


$ 






LD 


A, 3 


r 




CP 


B 


r 




JR 


Z, RES TOR 


r 


/ 


LD 


A, (IY+3) 


f 




XOR 


4 OH 


f 




LD 


(IY+3), A 






LD 


BC,2409H 


; 




BIT 


6, A 


/ 




JR 


Z, SDEN 






LD 


BC, 4511H 


r 


SDEN 


LD 


(IY+7) ,C 






LD 


(IY+8) ,B 






RET 







Check counter for 2 

tries left after this one 
If so try a RESTORE 

Flip the density bit, 
Bit 6, (IY+3) 

Set alloc to SDEN 
;Test SDEN/DDEN 

;Do SDEN if it was DDEN 
else set alloc to DDEN 



Verify routine 



VERFIN LD HL, BUCKET ; Set byte bucket 

LD A,2DH ;Set for DEC L, . . . 



DB 



1EH 



; Ignore next with LDE,n 



Read routine 



RDIN 


XOR 


A 


;Set for NOP 




LD 


(CKVER) , A 






CALL 


RWINIT 


; Initialize 




LD 


E, 16H 


; Status mask 


RDIN1 


IN 


A, (FDCSTAT) 


; Get status 




AND 


E 


;Loop until DRQ 



JR 
INI 
DI 
LD 
RDIN2 OUT 
CKVER NOP 
INI 
JR 



Z, RDIN1 



A,D 
(DSELCT) , A 



; or error 
; Grab byte 

;Get drive sel + WSGEN 
; Initiate wait state 
;DEC L: if verify 
;Xfer byte 
;Loop then TSTBSY 



NZ, RDIN2 

r 

} Reselect drive while controller is busy 

TSTBSY IN A, (FDCSTAT) ; Ck FDC status 

BIT 0,A ;Busy? 

RET Z ;RET if not 

LD A, (PDRV$) ;P/u drive 

OUT (DSELCT), A ; & reselect 

JR TSTBSY ;Loop until idle 

r 

; Driver start 



FDCBGN 



LD A,B 

AND A 

RET Z 

CP 7 

JR Z, TSTBSY 

JP NC, IORQST 

CP 6 

JR Z, SEEKTRK 

DEC A 

JR Z, SELECT 

INC (IY+5) 

CP 4 

LD B, 58H 

JR Z, STEPIN 

RESTOR LD (IY+5) , ; Set to track 

LD B, 8 /Restore drive 

JR STEPIN 



;P/u primitive request 
;NOP? 
; Quit if so 

; Jump on TSTBSY request 
; Jump on I/O request 

; Jump on track seek 

; Jump on drive select 

; Bump current cylinder 

; FDC step— in command 



SELECT 



RLCA 

PUSH 

PUSH 

LD 

RLA 

SRA 

AND 

LD 

BIT 

JR 

LD 

CP 

JR 

SET 



NOPCMP 



AND 

OR 

POP 



CALL TSTBSY ; Check drive status 

; Bit 7 to Carry flag 
;Save NOT READY flag 



AF 
BC 
A, (IY+3) 



;P/u SDEN/DDEN 
;Bits left, then copy 
A ; bit 6=>7, bit 4=>4 

90H ;Keep only DDEN & side 1 

C,A ; Save the bits 

7, A /Check if SDEN or DDEN 

Z, NOPCMP ;No precomp if SDEN 

A, (IY+9) ; Set precomp on all 

D ; tracks above DIR 

NC, NOPCMP ;No precomp if SDEN 
5,C ; Request precomp 

LD A, (IY+4) ;Get drive sel code 

OFH ; Keep only sel bits 

C ;Merge in bits 4 , 5, 7 

BC 



OUT 

LD 

POP 

RET 

BIT 

CALL 



FDCDLY 



LD 

CALL 
POP 
RET 



(DSELCT) , A 
(PDRV$) , A 

AF 

NC 

2, (IY+3) 

Z, FDCDLY 

PUSH BC 

B, 7FH 

PAUSEQ 

BC 



; Select drive 
; Store port byte 
; Retrieve NOT READY bit 
; Ret if was ready 
; Check DELAY=0 .5 or 1.0 
;Double delay if 1.0 
; Delay routine 

; Delay for B 



Routine to seek a track 



SEEKTRK 
LD 
OUT 
LD 
AND 
SUB 
CPL 
RES 
JR 
BIT 
JR 
SET 
DB 

SETSECT 

FRCSIDO 
LD 
OUT 
CP 
LD 
JR 
LD 
LD 

STEPIN 

LD 

AND 

OR 

PASSCMD 
LD 

DJNZ 
XOR 

FDCRET 



CALL TSTBSY 
A, (IY+5) 
(TRKREG) , A , 
A, (IY+7) 
1FH 
E 



4, (IY+3) 
NC, SETSECT 

5, (IY+4) 
Z, FRCSIDO 
4, (IY+3) 
1EH 

LD A,E 



;Wait until not busy 
P/u current cylinder 

& set FDC to current 
P/u alloc data 
Get highest # sector 
Form req sector minus 

max, setting CY flag if 
init side select to 
Go if sector on side 
If not 2 sided media, 

don't set side 1 
Set side 1 
; Ignore the next with LDE,n 
; Restore unaltered sect 



OUT 
A,D 

(DATREG) , A 

(IY+5) 
B, 18H 
Z, STEPIN 

(IY+5) , D 
B, 1CH 
CALL SELECT 

A, (IY+3) 
3 
B 
OUT 

B, 12H 
$ 
A 
RET 



(SECREG),A ;Set sector 



; Set desired track 

; If at desired track, 
■ use seek, else use 
; seek w/verify 
; Update current cylinder 
; Seek w/verify command 

; Select drive 



; Strip all but step rate 
(FDCADR) ,A ;Give FDC its command 
;Wait 



Read and write init routines 



RWINIT LD A,D ; Restuff track reg 

OUT (TRKREG) , A 

LD A, (PDRV$) ;Get select code 

OR 4 OH ;Set WSGEN bit 

LD D, A ; Save code in D 

AND 10H ;Get side select bit 

RRCA ; to bit 3 

BIT 1,C ; Check if doing side cmp 

JR NZ, GETCMD ; Go if so 



XOR A 

GETCMD OR C 

LD C, DATREG 

CALL FDD I NT $ 

JR PASSCMD 



; Get port into C 

; Interrupts on or off? 
/Pass command to ctrlr 



I/O request handler 



IORQST 

LD 

LD 

JR 

CP 

JR 

CALL 

DB 

DW 

VERFY CALL 
DB 
DW 

WRCMD BIT 
JR 
LD 
RET 

WRCMD 1 

CP 
JR 
LD 
JR 
LD 

DOWRIT 

DB 
DW 



BIT 2,B 
BC, (RFLAG$-1) 



; Write command? 
;P/u retry count 



C, 82H ; FDC cmd=readsec 

NZ, WRCMD ;Go if write command 

10 /Verify sector? 

Z, VERFY 

GRABNDO ; Grab next code & insert 

1 ; ERROR code start 

RDIN ; Read entry point 

GRABNDO ; Stuff I/O direction 

1 ; Error code start 

VERFIN ; Verify entry point 

7, (IY+3) ; Software Write-Protect? 

Z,WRCMD1 ;Bypass if not 

A, 15 ; Else set WP error 



C, 0A2H ; Write sector FDC command 

;Directory sector? 



; Chg Data Address Mark 
if directory 

; else write track 
; Switch code 



LD 

14 

C, DOWRIT 

C, 0A3H 

Z, DOWRIT 

C, OFOH 

CALL GRABNDO 

9 ; Error code start 

WROUT ; Write entry point 



; Routine stuffs error start byte & I/O vector 

r 

GRABNDO EX (SP) , HL ; Save HL & get ret addr 

LD A, (HL) ;P/u & stuff error code 

INC HL ; start byte 

LD (ERRSTRT+1 ) , A 

LD A, (HL) ;Set up data transfer 

INC HL ; direction vector 

LD H, (HL) 

LD L,A 

LD (CALLIO) , HL ; Stuff CALL vector 

POP HL ; Restore buffer addr 



Main I/O handler routine 



RETRY PUSH 


BC 


PUSH 


DE 


PUSH 


HL 


BIT 


4,C 


CALL 


Z, SEEKTRK 


CALL 


TSTBSY 


CALL 





CALLIO 


EQU $-2 



; Save retry & FDC command 

; Save track/sector 

; Save buffer 

; Test for track command 

; Seek if not track write 

;Wait until not busy 
; Call inserted I/O routn 

;Data Xfer direction 



DISKEI 



NOP 





IN 


A, (FDCSTAT) 




AND 


1CH 




POP 


HL 




POP 


DE 




POP 


BC 




RET 


Z 




BIT 


2, A 




JR 


NZ, RETRY 




PUSH 


AF 




AND 


18H 




JR 


Z, DISKDUN 




BIT 


4, A 




PUSH 


BC 




CALL 


NZ, SWDEN 




POP 


BC 




POP 


AF 




DJNZ 


RETRY 




DB 


6 


DISKDUN 


POP AF 




LD 


B,A 


ERRSTRT 


LD A, 


ERRTRAN RRC B 




RET 


C 




INC 


A 




JR 


ERRTRAN 


/ 
/ 


Write 


routine 


WROUT 


' CALL 


RWINIT 




LD 


E, 76H 


WR01 


IN 


A, (FDCSTAT) 




AND 


E 




JR 


Z, WROl 




OUTI 






DI 






IN 


A, (FDCSTAT) 




RRA 






RET 


NC 




LD 


A, OCOH 




OUT 


(WRNMIPORT) 




LD 


B,50H 




DJNZ 


$ 




LD 


B, (HL) 




INC 


HL 


WR03 


LD 


A,D 




OUT 


(DSELCT) , A 




IN 


A, (FDCSTAT) 




AND 


E 




JR 


Z, WR03 




OUT 


(C) ,B 




LD 


A,D 


WR02 


OUT 
OUTI 


(DSELCT) , A 




JR 


WR02 




IF 


$&OFFH.EQU. 



;Will be changed to EI 
after BOOT reads in SYSO 
; Get status 
;Use only bits 2-6 

; Rcvr track & sector 

; Rcvr retry count & cmd 

; Return if no error 

; Lost data? 

; Don't count this retry 

; Record not found or CRC 

; No retries if otherwise 

; Record Not Found? 

; If so, switch 

; density or restore 



; Count down retry 
; Ignore next with LD B,n 
; Adjust ret code 

/Start with R=l, W=9 
; Bit number = err code 
; is returned in A 
; Count each bit 

; and loop until Carry 



; Set up initialization 
; Status mask 
;P/u status 
;Fall out on DRQ or error 

; else loop 
;Xfer byte to FDC 
; Now kill the interrupts 
; Check for errors 
;Did BUSY drop? 
; Quit now if so 

; Enable INTRQ and time out 
,A 
; Time delay for WRSEC 

; Get next byte early 

; Enable wait states 

; Check if timed out 

; Loop back if it timed 

out (must be WRTRK) 
;Pass 2nd byte 
;Get sel code + WSGEN bit 
;Pass until FDC times out 
; & generates NMI 

OFFH 



ADISP 


'WARNING. . . B. 


END IF 




BUCKET 


DB 'S' 


r 

0RSTNMI 


XOR A 


OUT 


(WRNMIPORT) , A 


LD 


BC,100 


CALL 


PAUSE@ 


POP 


HL ;L 


RET 




FDCEND 


EQU $-1 


END 





BUCKET POSITICN ERROR ! 



; NMI vectors here 
; Disable INTRQ & time out 
; Delay for FDC sync 
; Call pause 
; Discard return 



;FILPOSN/ASM - LS-DOS 6.2 

r 

; Entry for byte I/O from @GET & @PUT 



BYTE I O 



POP 

CALL 

SET 

LD 

CP 

LD 

JR 

JR 



PUSH IX 
DE 

CKOPEN@ 
7, (IX+1) 
A,B 
2 

A,C 
Z, WRCHAR 



; Transfer DCB to DE 

;Ck file open, save regs 
; Denote byte or LRec 
; Get type code S test 
; for get /put 

;Go on PUT 



NC,IORETZ ; Ignore if CTL 



; Get a byte from a file 

RDCHAR CALL CKE0F1 ; Ck for end of file 

RET NZ ; Return if at end 

BIT 5, (IX+1) ;If buffer not current, 

CALL NZ,NSEC1 ; read next sector 

RET NZ 

CALL BFRPOS ; Pt to byte posn in BFR 

LD A, (DE) ;P/u the byte 

INC (IX+5) ; Inc NEXT ptr 

CALL Z,SET5 ; Set bit 5 if zero 

CP A ; Set Z flag — no error 

RET 



SET5 SET 
RET 



5, (IX+1) 



Write a byte to a file 



WRCHAR 



BIT 6, (IX+O) 



;Prot level is write access? 



JP 

PUSH 

BIT 

CALL 

JR 

EX 

POP 

RET 



Z,RWRIT3 ;Go if not 

AF ; Save byte 

5, (IX+1) ; Get next sector if 

NZ, WRCH2 ; buffer is not current 
Z,WRCH1 ; Skip if read was ok 

(SP),HL /Pop stack but keep 

HL ; error # in AF 



WRCH1 CALL 
POP 
LD 
SET 
INC 
PUSH 
CALL 
CALL 
JR 
BIT 
JR 

ATEOFW 

LD 
LD 



BFRPOS 
AF 

(DE) , A 
4, (IX+1) 

(IX+5) 
AF 

Z, SET5 
CKE0F1 
NZ, ATEOFW 
6, (IX+1) 
NZ, DNTSET 
LD (IX+8) , C 

(IX+12) , L 

(IX+1 3) ,H 



;Next BFR byte posn 

/Stuff the byte 
/Buffer contains updated data 

; Incr NEXT byte 
; Save Z or NZ flag 

;Set bit 5 if offset 

; Check for EOF 
; Go if there 

; Jump if EOF set to next 
; only if at EOF 

;Set End Of File 



DNTSET POP AF 

JR Z, RWRIT1 

IORETZ XOR A 
RET 



; Restore offset flag 
; Go to write sector if 00 

; Set Z flag — no error 



WRCHR needs the next sector - if UPDATE, ck EOF 



WRCH2 LD 
AND 
CP 
JR 

NXTSECT 

RET 

NSEC1 LD 
AND 
CP 
JR 

NSEC2 CALL 
RET 
RES 
LD 
LD 

CALL 
JR 
CP 
RET 

BUMPNRN 
JR 
INC 

ZEROAQ 

RET 



A, (IX+1) ;CK if UPD bit set 

7 ;Mask for prot level 

4 ; Check for UPD 

NZ,NSEC1 ; Bypass EOF ck on > UPD 



CKE0F1 ;Ck for end of file 

; Can't extend in update mode 
; Read access? 



CALL 
NZ 

A, (IX+1) 
7 
6 

NC, RWRIT3 
IOREC 
NZ 

5, (IX+1) 
L, (IX+3) 
H, (IX+4) 
QRDSEC 
Z, BUMPNRN 
6 

NZ 

INC (IX+10) 

NZ, ZEROA@ 
(IX+11) 
XOR A 



; "Illegal Acces . . . " if not 
;Calc cylinder/ sector 

; Show buffer current 
;P/u buffer address 

; Read the sector 
; Go if no error 
; Test for prot sector 
; Quit if error not 6 

; Incr the NRN ptr LSB 

; and MSB if necessary 



Repositioning needs to write out the buffer 



RWRIT@ LD A, (IX+1) 

AND 90H ;Test for non-sector I/O and 

CP 90H ; buffer contents changed 

JR Z,RWRIT1 ;Go if conditions true 

JR ZEROAQ ; else no need to write 

@RWRIT CALL CKOPEN@ ; Ck file open, save regs 

RWRIT1 CALL GETNRN ; P/u Next Record Number 

LD A,H ; Ignore if rewound 

OR L 

RET Z 

DEC HL ;Dec & reset NRN 

LD (IX+10) ,L 

LD (IX+11) ,H 



Check access protection level 



RWRIT2 



AND 

CP 
JR 



A, (IX+1) ;Get prot lvl 

; UPDATE access or better? 



RWRIT3 



OR 
RET 



LD 

7 

5 

C, RWRIT4 

LD A, 25H ; Illegal Access error code 

A ; Return NZ 



RWRIT4 


AND 4 


JR 


Z, RWRIT5 


CALL 


CKE0F1 


JR 


NZ, RWRIT3 


RWRIT5 


CALL IOREC 


RET 


NZ 


LD 


L, (IX+3) 


LD 


H, (IX+4) 


RES 


4, (IX+1) 


SET 


2, (IX+O) 


CALL 


@WRSEC 


RET 


NZ 


VEROP LD 


A,0 


OR 


A 


CALL 


NZ, @VRSEC 


RET 


NZ 


CALL 


BUMPNRN 



; If UPDATE access, then 
; can't extend if at EOF 

; so show "Illegal Acces . . . 

; Calculate cylinder & sector 

;P/u buffer addr 

; Altered buffer flag off 
; Show modification done 

; for directory MOD flag 

; Verify operation if set 

; Verify if no write error 
; Return if wrt/ver error 
; Increment NRN 



Check if ERN to be set to NRN 

Should be done for byte I/O, but not random I/O 



CALL 

DEC 

AND 

AND 

JR 



YESEOF 



LD 
BIT 
JP 
RET 



CKE0F1 ; Returns if not at EOF 

A ;Set bit 6 if retcod=0 

(IX+1) ;If IX+1, bit 6 set, then 

40H ; don't update EOF unless at 

NZ, ZEROA@ ; or past the old EOF 
LD (IX+12) , L ; Update ERN 

(IX+1 3) ,H 

3, (IX+1) ;Test if ending '!' 

NZ,WE0F1 ; Update direc if so 



GETNRN 



LD 
RET 



LD L, (IX+10) 

H, (IX+11) 



;Xfer NRN to HL 



BFRPOS 



ADD 

LD 

LD 

ADC 

LD 

RET 



LD 



A, (IX+5) 



;P/u byte offset in buffer 



A, (IX+3) 

E,A 

A, (IX+4) 

A,0 

D,A 



;Add to buffer LSB 

; and adjust buffer MSB 

; if needed 

; Return DE = posn 



Entry to seek next record of a file 



@SEEKSC 

CALL 

CALL 

RET 

CALL 

XOR 

RET 



CALL CKOPENQ ; Link to FCB & ck if open 

CKE0F1 ; Ensure not > EOF 

Z, IOREC ;Get track/sector data 

NZ ;Back on I/O error 

@SEEK ; Issue seek to drive 

A ; Ignore seek errors here 



Entry to Skip record routine 



@SKIP CALL @LOC 
INC BC 



; Locate next record 
; Step past it 



Entry to Position to record routine 



@POSN 


CALL 


CKOPENQ 




SET 


6, (IX+1) 




BIT 


7, (IX+1) 




JR. 


Z, P0SN1 




LD 


H,B 




LD 


L,C 




OR 


(IX+9) 




JR 


Z, P0SN1 




CALL 


@MUL1 6 




LD 


B,H 




LD 


C,L 




LD 


(IX+5) , A 




BIT 


5, (IX+1) 




JR 


NZ, POSN2 




CALL 


GETNRN 




SCF 






SBC 


HL,BC 




JR 


Z, $CKEOF 


P0SN1 


LD 


(IX+5) , A 


P0SN2 


PUSH 


BC 


P0SN2A 


CALL RWRITQ 




POP 


BC 




RET 


NZ 




LD 


(IX+10) ,C 




LD 


(IX+11) ,B 




CALL 


SET5 


$CKEOF 


JP CKE0F1 



;Upd EOF only if NRN>EOF 
; Jump if sector I/O only 

; Record ptr to HL 

;P/u LRL 

;Skip nxt if LRL=256 
;Calc sector & offset 
; Physical sector =>BC 

; Set byte ptr 
; Jump if buffer does not 
contain current sector 
;P/u the NRN 

; Subtract with Cy 
;Pass on to CKEOF 
; Offset in buffer 

; Write current if needed 
before moving 
;Back on write error 
;NRN 

; Show bufr does not 

; contain current sector 



Entry to force a physical read 



QRREAD 



LD 



CALL CKOPEN@ 
C,l 



BKSP1 


CALL 


GETNRN 




LD 


A,H 




OR 


L 




JR 


Z, BKSPO 




DEC 


HL 




CALL 


ADJ2 




PUSH 


HL 




JR 


P0SN2A 



Cause ADJUST to bump 
NRN when called 

; Get current record jj 
If file is rewound, 
then ignore the req 

; & force OFFSET = C 
Back up by 1 
RET if sector I/O only, 
else bump fwd if HIEAD 
then back up if bit 5=0 
Will be popped into BC 
; Finish the job 



Entry to backspace one logical record 



@BKSP CALL 


CKOPEN@ 




LD 


C,A 


;Keep ADJUST from bumping 


LD 


B, (IX+9) 


;P/u LRL 


OR 


B 


;Is it a 0? 


JR 


Z, BKSP1 


; Go if so 


LD 


A, (IX+5) 


;P/u next byte pointer 



SUB 


B 


BKSPO LD 


(IX+5) , A 


JR 


C, BKSP1 


XOR 


A 



RET 



; Subtr one record length 

; Go if X'd sector boundary 
; else all done 



Entry to Rewind to beginning 



@REW CALL CKOPEN@ 

LD B,A 

LD C,A 

JR POSN1 



;Zero NRN 

;Will also zero offset 
Entry to Position to end-of—file 



@PEOF 



@LOC 



LOCI 



CALL 

LD 

LD 

OR 

JR 

DEC 

JR 



CKOPEN@ 
C, (IX+12) 
B, (IX+13) 
(IX+8) 
Z, P0SN1 
BC 
P0SN1 



;ERN to BC 

;P/u EOF byte 
; Go if full sector 
; Point to last record 
;Use POSN to get end 



Entry to Locate current record number 



;P/u NRN 

; Get offset and adj NRN 
;P/u LRL 

; Test LRL for zero 
; If zero, then give NRN 

;LRL=0, NRN is correct 
; If offset is zero, 
; then it 's at 256, 

; and we don ' t dec NRN 



CALL 


CKOPENQ 


CALL 


GETNRN 


CALL 


ADJUST 


LD 


E, (IX+9) 


LD 


A,E 


OR 


A 


JR 


Z, L0C3 


INC 


C 


DEC 


C 


JR 


Z, L0C2 


DEC 


HL 



Divide the three-byte pointer (HLC) by the LRL 



;Divi de (NRN- 1 ) /LRL 
Save high-order result 
Save possible overflow 
Prepare 2nd dividend 
P/u low order dividend 
P/u LRL divisor again 

Xfer high order result 
If remainder, we have a 
partial record to round 
up to next record # 
Xfer possible overflow 
;Pop RESTREG return addr 

; Exchange value with BC 
; Restore RESTREG 



L0C2 


CALL 


@DIV1 6 




LD 


B,L 




LD 


D,H 




LD 


H,A 




LD 


L,C 




LD 


A,E 




CALL 


QDIV1 6 




LD 


H,B 




OR 


A 




JR 


Z,$+3 




INC 


HL 




LD 


A,D 


L0C3 


POP 


BC 




EX 


(SP) , HL 




PUSH 


BC 


/ 


IF 


@M0D4 


ORARET@ 


EQU $ 



END IF 
OR A 

RET 

; Entry to Locate the End-Of-Flle record 

@LOF CALL CKOPENQ 

LD L, (IX+12) ;P/u ERN 

LD H, (IX+13) 

LD C, (IX+8) ;EOF byte 

JR LOCI /Handle all LRLs 

; Entry to Write an End-Of-File mark 



@WEOF CALL 


CKOPEN@ 


CALL 


RWRITg 


WE0F1 LD 


B, (IX+7) 


LD 


C, (IX+6) 


CALL 


QDIRRD 


RET 


NZ 


INC 


L 


INC 


L 


INC 


L 


LD 


A, (IX+8) 


LD 


(HL) , A 


LD 


DE, 17 


ADD 


HL,DE 


LD 


A, (IX+12) 


LD 


(HL) , A 


INC 


HL 


LD 


A, (IX+13) 


LD 


(HL) , A 


JP 


@DIRWR 



Entry 



; Write buffer if needed 
;P/u DEC of FPDE 
;P/u drive # 

; Read file's dir record 
; Back if read error 
;Pt to ERN offset (DIR+3) 



;P/u EOF offset 

; Put in directory 
;Pt to EOF in dir 

;P/u EOF low order byte 
;Put EOF in DIREC 

;P/u EOF high order byte 

; Write dir record and return 

to Read a Record 



@READ CALL 


CKOPEN@ 


PUSH 


HL 


CALL 


RWRITQ 


POP 


HL 


RET 


NZ 


LD 


B, (IX+9) 


LD 


A,B 


OR 


A 


JP 


Z, NXTSECT 


RDREC PUSH 


HL 


PUSH 


BC 


CALL 


RDCHAR 


POP 


BC 


POP 


HL 


RET 


NZ 


LD 


(HL) ,A 


INC 


HL 


DJNZ 


RDREC 


RET 





; Write buffer if needed 

;Back on write error 

;P/u LRL 

;If LRL=256, simply 

; get the next sector 
; Save buffer posn 
; Save LRL 

; Read next byte 



; Back on read error 

; Put char into buffer 
; Bump buffer ptr 
; Loop for entire record 



Entry to Write a Record 



@ WRITE 
WRIT1 LD 

LD 

LD 

OR 

JP 

PUSH 

LD 

LD 

EX 

WRREC LD 
INC 
PUSH 
PUSH 
CALL 
POP 
POP 
JR 

DJNZ 
EX 
POP 
RET 

WRERROR 
LD 
LD 
POP 
RET 

; Entry 

r 

@VER CALL 
INC 
JR 

LNKFCB@ 
DB 

CKOPEN@ 

RLCA 

EX 

LD 

LD 

EX 

JR 

POP 

PUSH 

EX 

PUSH 

PUSH 

PUSH 

PUSH 

LD 

EX 

PUSH 

XOR 

RET 



CALL CKOPENQ 

(VEROP+1) ,A ; Turn on/off verify 



B, (IX+9) 
A,B 
A 

Z, RWRIT2 
HL 

H, (IX+5) 
L, (IX+8) 
(SP) , HL 

A, (HL) 
HL 
HL 
BC 

WRCHAR 
BC 
HL 

NZ, WRERROR 
WRREC 
(SP) , HL 
HL 



;P/u LRL 

; Bypass if LRL=256 



; Save some FCB values 
;P/u buffer offset locn 
;P/u EOF offset byte 

; Put values on stack 
; and recover HL 

;Pass the logical record 
; to the writing routine 
; byte by byte 



;Exit and fix FCB 

; Loop for entire record 

; Remove stored FCB info 
; Recover HL 



EX 



(SP) , HL 



; Get FCB values 



(IX+5) , H 
(IX+8) , L 
HL 



and put them back 



; Restore HL 

; Go back with error 



to Verify after write of a reord 

CKOPEN@ 

A ; Set verify byte 

WRIT1 

SCF ; Init to force file open 

0D2H ; test by JP NC, aaaa 

LD A, (DE) ; Ignore if from LNKFCB 

;Test high bit of FCB 

(SP) , HL 

(JRET$),HL ;Save ret 

(JDCB$),DE ;Save DCB 

(SP) , HL 

NC,NOTOPEN ;Go if not an open FCB 
AF ; Get return 

DE ;DCB addr to IX 

(SP) , IX 

HL ; Save regs 

DE 
BC 
HL 
HL, RESTREG 

(SP) , HL 
AF 
A 



; Establish Return addr 
; to restore registers 

; Put back ret 

; Go back 



NOTOPEN 


POP AF 


LD 


A,26H 


OR 


A 


RET 




r 

RESTREG 


POP BC 


POP 


DE 


POP 


HL 


POP 


IX 


RET 





; Set error "File Not Open 
; Set NZ condition 



;Pop back registers save 
in CROP EN @ 



Entry to check if at End-Of-File 



@CKEOF 


CALL CK01 


CKE0F1 


CALL GETl 


PUSH 


HL 


CALL 


ADJUST 


LD 


A,H 


CP 


(IX+13) 


JR 


NZ, CKE0F2 


LD 


A,L 


CP 


(IX+12) 


JR 


NZ, CKE0F2 


DEC 


C 


LD 


A, (IX+8) 


DEC 


A 


SUB 


C 


CCF 




INC 


BC 


CKE0F2 


POP HL 


LD 


A, 1DH 


JR 


NZ, CKE0F3 


DEC 


A 


RET 




CKE0F3 


RET NC 


XOR 


A 


RET 





V ;P/u NRN into HL 

; Save un-ad justed NRN 

; Adjust for special cases 
; Compare high byte 

; Go if not equal 

; Compare low-order byte 

; Go if not equal 
; Adjust for 00=256 
; Compare offset byte 

;Set NC, NZ conditions 

; if past EOF 

; Restore old BC value 

; Restore unadjusted NRN 
;Rec # out of range code 
; Go if not at EOF 
;X'1C'=E0F encountered 
; Return with NZ flag 

; Return with error 
; else set Z flag 
; Ret with no error 



File positioning adjustment routines 



ADJUST 



ADJ2 



1 


EQU $ 


LD 


C, (IX+5) 


EQU 


$ 


BIT 


7, (IX+1) 


RET 


Z 


LD 


A,C 


OR 


A 


JR 


Z,$+3 


INC 


HL 


BIT 


5, (IX+1) 


RET 


NZ 


DEC 


HL 


RET 





; Entry from QCKEOF and @LOC 
;Pick up offset 
; Entry from @BKSP/@RREAD 
; Sector I/O only? 
;No adjustment if so 
; Offset =0? (or "RREAD?") 

; Go if zero 

; Set for next record 

; Last byte was read? 

; Go if set 

; else re-adjust ptr 



; Calculate the cylinder /sector of needed record 

r 

IOREC CALL GETNRN ; P/u record number 



CALL 


@DCTBYT-5 


r 


AND 


1FH 


f 


INC 


A 


r 


CALL 


QDIV1 6 




LD 


(CALS5+1) , 


A ; 


PUSH 


IX 


; 


EX 


(SP) , HL 




LD 


BC, 14 


; 


ADD 


HL,BC 


r 


POP 


BC 


f 


LD 


A, 5 


r 


LD 


DE, 


f 


GREC1 PUSH 


AF 




LD 


A, (HL) 




INC 


HL 


r 


INC 


A 




JR 


Z, GREC2 




PUSH 


HL 


f 


LD 


H,D 


r 


LD 


L,E 


f 


XOR 


A 


r 


SBC 


HL,BC 


f 


JR 


C, GREC3 




POP 


HL 




JR 


Z, CALCSEC 




GREC2 INC 


HL 




POP 


AF 




DEC 


A 




JR 


Z, GREC4 




LD 


E, (HL) 




INC 


HL 


r 


LD 


D, (HL) 




INC 


HL 




JR 


GREC1 




GREC3 INC 


H 


r 


LD 


A,L 


f 


POP 


HL 


r 


JR 


NZ, GREC2 


r 


PUSH 


DE 


r 


LD 


E,A 


f 


LD 


A, (HL) 




AND 


1FH 


f 


ADD 


A,E 


f 


LD 


A,E 


r 


POP 


DE 




JR 


NC, GREC2 


r 


NEG 




r 


JR 


CALCSEC 





Get # of sectors/gran 
Use only bits 0-4 
Adjust logical => physical 
; By # of sectors /gran 
Sv rmndr (sector offset) 
Xfer FCB to HL 

Pt to 1st extent info 
FCB+14 

Pop gran ptr HL into BC 

Init to check 4 extents 

& extended FXDE ptr 

;P/u starting cyl byte 
& bypass if FF 



Xfer the # of grans up 

to but not including 

this extent into HL 
Subtr gran ptr from 

cumulative figure & go 

; if not in previous ext 



; Jump when all quads ckd 
;P/u cumulative # grans 
up to but not 

; including this extent 



Within 256 grans? 

Xfer Low-order difference 

Rcvr # of contiguous grans 

in this extent 
Go if not within 256 
Save cumulative count 
Xfer gran dif (neg) 
;P/u # of grans 

in this extent 
Add to negative difference 
Put negative diff into A 

Go if not in this extent 
; Is in this extent, make 

; diff positive & use it 



All current quads checked - Need directory info 



GREC4 EQU 


$ 


CALL 


ALLOC 


RET 


NZ 


LD 


(CALS4+1) ,A 


JR 


NC, CALS3 



; Get # of grans 

; into the extent 

; or error RET 

; Jp if record in 1st ext 



JR 



CALS1 



else jp if in another 



Calc sector in gran 



CALCSEC 


LD (C* 


LD 


B, (HL) 


DEC 


HL 


LD 


C, (HL) 


INC 


HL 


POP 


AF 


CPL 




ADD 


A, 4 


JR 


NC, CALS2 


INC 


A 


RLCA 




RLCA 




PUSH 


BC 


PUSH 


DE 


LD 


C,A 


LD 


B,0 


EX 


DE,HL 


LD 


HL, -4 


ADD 


HL,DE 


LDDR 




EX 


DE,HL 


POP 


DE 


POP 


BC 


CALS1 LD 


(HL) , B 


DEC 


HL 


LD 


(HL) , C 


DEC 


HL 


LD 


(HL) , D 


DEC 


HL 


LD 


(HL) , E 


CALS2 LD 


H,B 


LD 


L,C 


CALS3 LD 


A,H 


RLCA 




RLCA 




RLCA 




AND 


7 


CALS4 ADD 


A,0 


CALL 


RELCYL 


ADD 


A,L 


LD 


D,A 


LD 


A,B 


AND 


1FH 


INC 


A 


PUSH 


DE 


CALL 


@MUL8 


POP 


DE 


CALS5 ADD 


A,0 


LD 


E,A 


XOR 


A 


RET 





(CALS4+1) ,A ; Stuff # grans into 
; this extent 
;P/u # contig grans & 

; rel start & start 



cyl 



; Rcvr # of quad 

; Jump if 1st ext or quad 
; If not 1st, set up to move 
; matching quad to the 
; first position by 
; shuffling the others up 

; Get bytes to move 

; DE = top of last quad 

;HL = top of next lower 
; Do the shuffle 



;Move info on matdhing quad 
into position 



Xfer start & contig gran 
Xfer start cylinder 

P/u start gran on track 

Was bits 5-7 

Zero the unwanted 

P/u # grans into extent 

; Calc 1st relative cyl 
Add starting cyl 

Recover # Sectors/gran 

use bits 0-4 

logical => physical 
Calculate sector offset 

into desired cylinder 

for desired granule 
P/u # of excess sectors 

over even gran & add 

to granule sector 



On entry, gran needed is in BC 



ALLOC 



ALL1 



ALL2 



ALL3 



ALL 4 



ALL5 
ALL 6 



CALL 

RET 

PUSH 

LD 

LD 

XOR 

SBC 

LD 

LD 

POP 

PUSH 

PUSH 

EX 

LD 

ADD 

POP 

LD 

LD 

INC 

CP 

JR 

LD 

XOR 

AND 

JR 

DEC 

JR 

INC 

INC 

INC 

JR 

PUSH 

EX 

LD 

ADD 

LD 

LDDR 

EX 

POP 

XOR 

SCF 

JR 

LD 

EX 

XOR 

POP 

LD 

RET 



CYL_GRN 

NZ 

HL 

H,B 

L,C 

A 

HL,DE 

A,L 

(ALL6+1) , A 
HL 
DE 
IX 

(SP) , HL 
DE, 14 
HL,DE 
DE 
B,5 
A, (HL) 
HL 
E 

NZ, ALL2 
A, (HL) 
D 

OEOH 
Z, ALL4 
B 

Z, ALL3 
HL 
HL 
HL 

ALL1 
DE 

DE,HL 
HL, -4 
HL,DE 
BC, 12 

DE,HL 

BC 

A 

ALL5 
(HL) , D 
DE,HL 
A 
DE 
A,0 



; Find ext cnting gran 
Ret on error 

Save starting cyl & gran 
Xfer granule needed to 

HL then calculate how 

many grans into this 

extent is the desired 

granule 
Stuff rel gran from 

start of extent 
Save granule count 

to extent 

;FCB pointer to HL 
Pt to 1st alloc in FCB 

Pop starting cylinder 
to this extent 

;P/u a cylinder 
Does starting cyl of 
needed gran alloc 

; appear in this extent? 
;Now see if needed gran is 
; in this extent field 
; by checking its starting gran 

;Decr the count— dwn loop 

; Done if no match 
; Go to next extent 
info in FCB 



; Save needed extent info 
; Set up to shuffle extent 
; info 



; Set Z no error 

; Set C flag, extent not found 



; Set Z no error 

; # of grans into this ext 
; Wher desired gran is 



Extent is unused - need to allocate more space 



CG06 CALL CG07 
POP BC 
RET NZ 



; Try to allocate more 
; Get back desired gran 
; Return on error 
; Look again for gran 



Find extent containing desired granule 



CYL_GRN 
LD 



CG01 



CG02 



CG03 



LD 

LD 

LD 

LD 

CALL 

LD 

ADD 

EX 

POP 

RET 

LD 

CP 

JR 

INC 

LD 

PUSH 

AND 

INC 

ADD 

LD 

JR 

INC 

PUSH 

DEC 

XOR 

SBC 

POP 

JR 

INC 

POP 

JR 



PUSH BC 
DE, 

B, (IX+7) 
A,B 

(STUFDEC+1) 

C, (IX+6) 
QDIRRD 
BC,22 
HL,BC 
DE,HL 
BC 

NZ 

A, (DE) 

OFEH 

NC, CG05 

DE 

A, (DE) 

HL 

1FH 

A 

A,L 

L,A 

NC, CG03 

H 

HL 

HL 

A 

HL,BC 

HL 

NC, CG04 

DE 

AF 

CG02 



; Save desired gran # 
; Init gran counter 
;P/u DEC of file 

,A ;Stuf it 

;P/u drive for file 

; Read its directory 
;Point to 1st extent 
; of its directory 
; Gran count to HL 
; Restore desired gran 
; Return on read error 

; Is this extent 
; allocated? 

; Jump if it is not 
; Point to allocation 

;P/u relative gran & # 
; of contiguous grans 
; Keep contiguous grans 
; & bump for offset 
; Add to count in HL 



Bump high order 
Save gran count to 

end of extent 
Test if EOF if in this 

allocation 

;EOF not > this alloc 
;Get rid of old 
; current quantity 
; Check next extent 



The EOF is within this allocation, Recover 
the allocation data and exit 



CG04 



POP 


HL 


EX 


DE,HL 


LD 


A, (HL) 


DEC 


HL 


LD 


L, (HL) 


LD 


H,A 


XOR 


A 


RET 





;P/u gran count to extent 
; Gran count to DE 

;P/u granule data 

;P/u starting cylinder 



This extent is 1) unused, or 2) FXDE pointer 
and the needed gran has not been found yet 



CG05 



PUSH 


BC 


; Gran count to DE & 


EX 


DE,HL 


;DIR ptr to HL 


JR 


NZ,CG06 


; Jump if unused 


INC 


HL 


; Point to DEC of FXDE 


LD 


B, (HL) 


;P/u the DEC 


JR 


CG01 


; & loop 



See if the drive has enough free space left 



CG07 



CGI 2 



PUSH 

LD 

CALL 

POP 

RET 

PUSH 

LD 

LD 

XOR 

SBC 

LD 

LD 

INC 

POP 

INC 

LD 

LD 

LD 

PUSH 

LD 

AND 

CP 

JR 

DEC 

DEC 

LD 

AND 

INC 

LD 

CP 

JR 

LD 

AND 

RLCA 

RLCA 

RLCA 

ADD 

PUSH 

CALL 

LD 

LD 

POP 

DEC 

LD 

INC 

ADD 

LD 

LD 

CP 

JR 

LD 

LD 

CALL 

JR 



BC 

C, (IX+6) 

@GATRD 

BC 

NZ 

HL 

H,B 

L,C 

A 

HL,DE 

B,H 

C,L 

BC 

DE 

DE 

H, DIRBUF$>8 

A, (AFLAG$) 

L,A 

BC 

A,E 

1EH 

16H 

Z,CG14 

E 

E 

A, (DE) 

1FH 

A 

C,A 

2 OH 

Z, CGI 3 

A, (DE) 

OEOH 



A,C 

DE 

RELCYL 

B,A 

C,E 

DE 

DE 

A, (DE) 
DE 
A,B 
L,A 

H, DIRBUF$>8 
OCBH 
NC,CG13 
A,C 

B, (HL) 
TSTBIT 
Z, CG21 



Save needed gran 
P/u file's drive 

;Get GAT 
Recover needed gran 
Return if GAT error 

Xfer the requested 

gran to HL & 

subtract current gran 
Count to calculate how 

many excess grans 

are needed 

Recover dir byte ptr 
Pt to next DIR byte 
Start looking at TRK #1 
P/u Search start CYL 

and put it in L 
Save excess grans needed 
Is this extent the 1st? 
Jump if so, else we can 

use it for allocation 

Back up to previous 

extent 

;P/u # of contig grans 

see if the last gran 

used can be extended 
Is current # the max 

an extent can hold? 

; Jump if a full extent 
; (32 grans max) - else 

p/u the relative 

granule offset 



;Add the # of contiguous 
; granules 

; Calc relative cyl needed 
; Save offset 



; Backup to starting cyl 

; & repoint to alloc byte 

; Add cyls used to 

; starting cyl 

; Is it less than max? 

; Jump if too big 

;P/u the cyl ' s GAT 
; Test if gran is free 
; Bypass if free gran 



The next gran cannot be used - get another extent 



CGI 3 INC E 

INC E 

LD A,E 

AND 1EH 

CP 1EH 

JR NZ,CG14 



;Else point to next 
; extent field 

; Jump if not on the FXDE 
; field, else we have to 

; obtain an FXDE record 



Last extent used up, get new d± rec for FXDE 

; Write current GAT & HIT 
;Ret if GAT/HIT error 

;Get new HIT for FXDE 



CALL CG23 

POP BC 

RET NZ 

PUSH BC 

CALL NEWHIT 

POP BC 

RET NZ 

JP CYL GRN 



; Loop to process 

; new extent 



; Extent is vacant - use it & get new allocation 

r 

CGI 4 CALL MAXCYL ; Get highest # cyl 

LD (CG17+1),A ; Stuff highest cyl 

; Test last cyl used 
;P/u max cyl 

;P/u a GAT byte 

; Go if space in this cyl 
; else bump to next one 
; & loop 

; Now start from begin 
; of disk & recheck 

; Write out GAT & HIT 

; "disk space full" 
; Set error NZ 





LD 


B,2 


CGI 6 


LD 


A,L 


CGI 7 


CP 







JR 


NC, CGI 8 




LD 


A, (HL) 




INC 


A 




JR 


NZ,CG19 




INC 


L 




JR 


CGI 6 


CGI 8 


LD 


L,0 




DJNZ 


CGI 6 




POP 


BC 




CALL 


CG23 




RET 


NZ 




LD 


A, 1BH 




OR 


A 




RET 





Found available space in cylinder 

; Set DIR extent to FF 



CGI 9 LD A, OFFH 

LD (DE) , A 

LD C, 

LD B, (HL) 

CG20 LD A, C 

CALL TSTBIT 

JR Z, CG21 

LD A, (DE) 

ADD A, 2 OH 

LD (DE) , A 

INC C 

JR CG20 



;P/u current GAT alloc 

; Find a free gran 
; & jump when found 
; else advance starting 
; relative gran value 

; Bump pointer to test 
; next gran 



Next gran in line is free - allocate it 



CG21 


LD 


A,C 






CALL 


SETBIT 






OR 


(HL) 






LD 


(HL) , A 






DEC 


E 


f 




LD 


A, (DE) 






INC 


A 


f 




JR 


NZ, CG22 






LD 


A,L 


r 




LD 


(DE) ,A 


r 


CG22 


INC 


E 






LD 


A, (DE) 






INC 


A 


r 




LD 


(DE) , A 






POP 


BC 


r 




DEC 


BC 


f 




PUSH 


BC 


r 




LD 


A,B 


r 




OR 


C 


f 




JP 


NZ, CGI 2 






POP 


BC 




CG23 


LD 


C, (IX+6) 


; 




CALL 


QGATWR 






RET 


NZ 




STUFDEC 


LD B, 






JR 


QDIRWR 





; Show it allocated 



; Bump to starting cyl 

; Bump by one to see if 

this alloc is the 1st 

; one for the extent & 

we have to set the 

starting cylinder 

; Stuff starting cyl 

; Add 1 to # of contiguous 
granules 

Decrement needed gran 

count since we just 

allocated one 
Loop if we need more 

space allocated 



;Else p/u the drive # 

; S write out the GAT 

;P/u DEC of FPDE 



Get new HIT for FXDE 



NEWHIT 



CALL 

RET 

LD 

AND 

CALL 

LD 

RET 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

CALL 

CALL 

RET 

LD 

INC 

PUSH 

LD 

LD 

INC 



LD C, (IX+6) 

QHITRD 

NZ 

A, (IX+7) 

1FH 

NHIT4 

A, 1EH 

NZ 

B,L 

A,L 

(NHIT3+1) ,A 
D,H 

E, (IX+7) 
A, (DE) 

(HL) ,A 
@HITWR 
Z, QDIRRD 
NZ 

(HL) , 90H 
L 

BC 
A, (STUFDEC+1) 

(HL) , A 
L 



;P/u drive # 
;Read the HIT 

P/u FPDE DEC so 1st ck 
will be for next 
in line 

Init "Full directory. . . 

Ret if no space 

Set DEC for 

directory read 

Stuff new DEC from HIT 



;P/u current DEC 

; Copy filespec HASH CODE 
to new DEC 



; Show dir rec in use as 

; FXDE record 

;P/u DEC of FPDE & 

stuff it into FXDE's 
DIR+1 to link back 



LD 
NHIT1 LD 
INC 
DJNZ 
PUSH 
LD 
NHIT2 LD 
INC 
DJNZ 
POP 
INC 
POP 
CALL 
RET 
LD 
LD 
CALL 
RET 
LD 
ADD 
LD 
LD 
INC 
NHIT3 LD 



B,20 

(HL) , 
L 

NHIT1 
HL 
B,10 

(HL) , OFFH 
L 

NHIT2 
DE 
DE 
BC 

QDIRWR 
NZ 



A, (STUFDEC+1) 

B,A 

@DIRRD 

NZ 

A,L 

A, 1EH 

L,A 

(HL) , OFEH 
L 

(HL) , 



; Zero out 20 bytes 

in the FXDE 



; Save ptr to 1st extent 
;Init to X'FF' 10 bytes 
; or 5 extents 



; Recover ptr to 1st ext 
;Pt to allocation byte 



; Write FXDE back to disk 
; Return if error 

; else p/u DEC of FPDE 



; Read its directory 
; & return if error 

; Point to FXDE postn 

; in FPDE 

;Show link to FXDE 

; Show what the FXDE DEC is 
: & write the DIR back 



Routine to write a directory sector 

B => DEC of FPDE, C => logical drive number 

HL <= will point to directory record in SBUFF$ 



@DIRWR 


CALL DIRWR 


RET 


Z 


DIRWR PUSH 


DE 


CALL 


CALCDIR 


LD 


L,0 


CALL 


@WRSSC 


CALL 


Z, @VRSEC 


SUB 


6 


POP 


DE 


RET 


Z 


CP 


OFH-6 


LD 


A, 18 


RET 


NZ 


SUB 


3 


RET 





; Permit two attempts 

; Save the regiment 

; Calc dir cyl 
; Set buffer to start 

; Write the sector 
; Verify on no error 



; Back on system sector 
; Write— Protected Error? 
; Set dir write error 
if not WP'd 



Find a spare Hash Index Table entry 



NHIT4 PUSH 


AF 


LD 


A, 7 


CALL 


QDCTBYT 


PUSH 


DE 


LD 


D,A 


AND 


1FH 


LD 


E,A 


INC 


E 


XOR 


D 



; Get highest # sector 

; on a cylinder 
; into register E 
; Save for Calc HEADS 



& get number of HEADS 
into register A 





RLCA 






RLCA 






RLCA 






INC 


A 




CALL 


QMUL8 




CALL 


CKDBLBIT 




POP 


DE 




SUB 


2 




LD 


(NHIT7+1) ,A 




POP 


AF 




LD 


L,A 




CALL 


NHIT6 




RET 


Z 




LD 


L,3FH 


NHIT5 


INC 


L 


NHIT6 


LD 


A,L 




AND 


1FH 


NHIT7 


CP 







JR 


NC, NHIT9 




LD 


A, (HL) 




OR 


A 




RET 


Z 


NHIT8 


LD 


A,L 




ADD 


A,20H 




LD 


L,A 




JR 


NC, NHIT6 




CP 


1FH 




JR 


NZ, NHIT5 


NHIT9 


OR 
RET 


A 



;Blts 5-7 => 0-2 

; Logical => Physical 

; To calc sectors/cylinder 

; Double if necessary 

; Total sectors per cyl 

; Reduce for GAT & HIT 

;# of directory sectors 

;Get DEC init entry 

;Ck if HIT slot is spare 
; Return if it is spare 



;Does value exceed 
; sectors/ cylinder? 



;Else go to next sector 
; column 



Test if Gran is free in GAT 



;Get to 7 
; Shift to match BIT n, 
; opcode 



TSTBIT AND 7 

RLCA 

RLCA 

RLCA 

OR 4 OH 

LD (TBIT1+1) ,A ;Modify BIT instruction 

TBIT1 BIT 0,B 

RET 



Set gran to allocated in GAT 



; Shi ft to create opcode 
to match current bit 



SETBIT RLCA 

RLCA 

RLCA 

OR 0C7H 

LD (SBIT1+1) ,A ;Create SET n, opcode 

XOR A 
SBIT1 SET 0,A 

RET 



Routine reads/writes the Granule Allocation Table 



@GATRD 
QGATWR 



DB 0F6H 

XOR A 



;Set NZ for test 
; Set Z for test 



PUSH 


DE 


PUSH 


HL 


PUSH 


AF 


CALL 


QDIRCYL 


LD 


HL, DIRBUF$ 


LD 


E,L 


POP 


AF 


JR 


Z, GATRW1 


CALL 


@RDSSC 


LD 


A,14H 


JR 


GATRW2 


GATRW1 


CALL @WRSSC 


CALL 


Z, @VRSEC 


CP 


6 


LD 


A, 15H 


GATRW2 


POP HL 


POP 


DE 


RET 





; Save flag for test 



;Set E to 

; Recover flag for R/W 

;Go if @GATWR 

; Init "GAT read error" 



; Protected sector write 



; Verify if OK 
; Protected sector? 
Init "GAT write error' 



Read or write the Hash Index Table 



QHITRD 


DB 0F6H 


@HITWR 


XOR A 


PUSH 


BC 


PUSH 


DE 


PUSH 


AF 


CALL 


@DIRCYL 


LD 


E,l 


LD 


HL, SBUFF$ 


POP 


AF 


JR 


Z, HITRW1 


CALL 


@RDSSC 


LD 


A, 22 


JR 


HITRW2 


HITRW1 


CALL @WRSSC 


CALL 


Z, QVRSEC 


CP 


6 


LD 


A, 23 


HITRW2 


POP DE 


POP 


BC 


RET 





;Set NZ for test 
; Set Z for test 



Save flag for test 

;D => directory cylinder 
E => HIT sector 
HL => HIT buffer area 
Recover flag for RD/WR 
Go if @HITWR 

; Read cyl D, sector E 
Init "HIT read error" 

; Protected sector write 
Verify the write 
Protected sector? 
"HIT write error" 

; Message for other than 
attempt protected sector 



Routine to read a directory sector 

B => DEC ot FPDE, C => logical drive number 

HL <= will point to directory record in SBUF$ 



@DIRRD 



> 


PUSH DE 


CALL 


CALCDIR 


PUSH 


HL 


LD 


L,0 


CALL 


@RDSSC 


POP 


HL 


LD 


A, 17 


POP 


DE 


RET 





;Set HL to SBUFF$ 

; Start of bfr 
;Read it 

; Init to dir read error 



Routine to get directory access data 



B => DEC 

DE <= cylinder and sector needed 

HL <= pointer to directory record in SBUFF$ 



CALCDIR 


CALL @DIRi 


LD 


A,B 


AND 


OEOH 


LD 


L,A 


LD 


H, SBUFF$>8 


XOR 


B 


ADD 


A, 2 


LD 


E,A 


RET 





fL ; Get directory cyl in D 

; Calculate record start 
; from the DEC 

; Point to buffer start 
/Calculate directory 
; sector needed 



Read system sector, D=Track, E=Sector, HL=Buffer 



@RDSSC 



RET 

PUSH 

LD 

CALL 

POP 

RET 

PUSH 

INC 

INC 

LD 

LD 

CALL 

LD 

LD 

POP 



READIR 



SUB 
RET 



CALL READIR 
Z 

DE 
DE, 1 
QRDSEC 
DE 
NZ 
HL 
HL 
HL 

D, (HL) 
H,9 
DCTFLD@ 
L,A 
(HL) , D 
HL 

CALL @RDSEC ; Retry dir read 

6 ; Test protected 



;Pt to trk 0, sec 1 

; Read to find dir cyl 



;Pt to dir trk # 

;P/u direc trk fr bootsec 
; Update memory table 



QDIRCYL LD A, 9 

CALL QDCTBYT 

LD D,A 
RET 



; Get the dir cylinder 



MAXCYL 



PUSH 

LD 

CALL 

INC 

POP 

RET 



A, 6 



LD 

BC 

C, (IX+6) 

QDCTBYT 

A 

BC 



; Get highest # cyl 
; Adjust for zero offset 



Multiply register E by register A 



@MUL8 PUSH 


BC 


LD 


D,A 


XOR 


A 


LD 


B,8 


MEA1 ADD 


A, A 


SLA 


E 



;Mult A x E 

;Multiplier into D 

; Clear accumulator 

; Init to 8 bits 

;Bits left A 

;Bits left E into C flag 



JR NC, MEA2 

ADD A,D 

MEA2 DJNZ MEA1 

POP BC 
RET 



; Unless Cy flag, do not add 
; Effective multiplication 
; Count for 8 bits 
; Restore BC 
; Product is in A 



; Calculate relative cylinder for granule needed 

r 

RELCYL LD E, A 

CALL @DCTBYT-5 ; Get # of grans/track 

LD B,A ; Hang on to this 

RLCA 

RLCA 

RLCA ;Bits 5-7 => bits 0-2 

AND 7 

INC A ;Adjust from logical 

CALL CKDBLBIT 

; Divide register E by register A 



@DIV8 PUSH 


BC 


LD 


C,A 


LD 


B,8 


XOR 


A 


DEA1 SLA 


E 


RLA 




CP 


C 


JR 


C, DEA2 


SUB 


C 


INC 


E 


DEA2 DJNZ 


DEA1 


LD 


C,A 


LD 


A,E 


LD 


E,C 


POP 


BC 


RET 





; Divisor into C 
; Initialize for 8 bits 
; Zero accumulator 
;Bits left E into Carry 
; Rotate dividend into E 
; Divisor > dividend? 

; Yes, bypass and continue shift 
; Effective division 
; Set rotating bit of E 
; Loop for 8 bts 
; Save remainder in C 
; Quotient into A 
; Remainder into E 
; Restore regs BC 



Routine to double the A register if DBL bit is set 

$ 



CKDBLBIT EQU 

LD D,A 

LD A, 4 

CALL QDCTBYT 

BIT 5, A 

LD A,D 

JR Z, $+3 

ADD A, A 
RET 
END 



;Adjust for 2-sided & 
; calculate # of cyls 

;Test if 2-sided 

; Double the grans if 2 
; & fall through to DIV8 



; IODVR/ASM - LS-DOS 6.2 

ADISP ' <Dev±ce I/O handling> ' 



HOME EQU 1CH 
CLRFRM EQU 1FH 

/ 

; Log out routine - display & log 

f 

@LOGOT CALL @DSPLY 

r 

; Job log logerroutine 



@LOGER LD 

XOR 8 

AND 8 

RET Z 

PUSH HL 

LD HL, LOGBUF 

PUSH HL 

CALL @TIME 

POP HL 

LD DE, JLDCB$ 

CALL @MSG 

POP HL 

JR @MSG 

LOGBUF DB 'hh:mm: ss 



A, (JLDCB$) ; If NIL, don't do 
; anything 



; Save pointer to command 
; Get time string into buf 



; Log the time 
; Log the command 
,3 



; Line print routine 

r 

@PRINT LD DE, PRDCB$ 

JR @MSG 



; Printer DCB 



; Line display routine 

r 

QDSPLY LD DE,DODCB$ ; Video DCB 

r 

; Device message routine 



; *MOD 






@MSG 


PUSH 


HL 


$B1 


LD 


A, (HL) 




CP 


3 




JR 


Z,$B3 




CP 


CR 




JR 


Z, $B2 




CALL 


NZ, @PUT 




INC 


HL 




JR 


Z,$B1 


$B2 


CALL 


Z, @PUT 


$B3 


POP 
RET 


HL 



; Save pointer to message 

;P/u a message character 
;Exit on ETX 

;Exit & put on ENTER 

;Else put the char 
; & loop on no error 
; else fall thru and exit 



; Clear screen routine 

@CLS LD A, HOME 

CALL DSP BYT 



; Cursor home to 0,0 



RET NZ 

LD A, CLRFRM 

DSP BYT PUSH DE 

CALL @DSP 

POP DE 
RET 



; Return on error 

; Clear to end of frame 



Check and Clear <BREAK> bit SVC 



gCKBRKC 


EQU $ 


PUSH 


HL 


LD 


HL, KFLAG$ 


BIT 


0, (HL) 


JR 


Z, NOBRK 


PUSH 


AF 


PUSH 


BC 


PUSH 


DE 


BRKTEST 


RES 0, (HL) 


LD 


BC, OBOOH 


CALL 


PAUSE@ 


BIT 


0, (HL) 


JR 


NZ, BRKTEST 


LD 


DE, KIDCB$ 


LD 


A, 03 


CALL 


@CTL 


POP 


DE 


POP 


BC 


POP 


AF 


NOBRK POP 


HL 


RET 





: Save registers 

; Point to KFLAG$ 

; Check break bit 
; and ret If none 



; Reset the break bit 
•Walt more than 1/30 
; of a second 
; Test the bit again 
; Loop until gone 
: Point at keyboard & 
clear buffer 
control 3 call 



• Recover registers 

• Recover flags 



Keyboard line Input routine 



*MOD 



Backspace to beginning of line 



$C4 



$C5 



CALL 

DEC 

LD 

INC 

CP 

RET 

LD 

CP 

JR 

RET 



$C6 

HL 

A, (HL) 

HL 

OAH 

Z 

A,B 

C 

NZ, $C4 



@ KEY IN 



HL 



$C1 



$C0 
$C1A 



LD 

LD 

LD 

AND 

JR 

LD 

LD 

CALL 

JR 



; Backspace 

; Get the char prior 

; to the current 

; Return If line feed 

; Check for empty buffer 

; Loop If not 
; else return 

; Save buffer pointer 
; Set C = buffer size 

; Inlt for standard Input 
; If JCL Is active, 
; then use the JCL Input 
;Must loop here In case 
JCL exits with //STOP 



PUSH 
C,B 

DE, @KEY 
A, (SFLAG$) 
2 OH 
Z,$CO 

E, QJCL&OFFH ; 
($C1A+1) ,DE 

$-$ ; Get a key 

NZ,$C3B ;Back on error 



$C2 



CP 


8 OH 


JR 


Z,$C10 


CP 


2 OH 


JR 


NC, $C2 


CP 


ODH 


JR 


Z,$C11 


CP 


1FH 


JR 


Z,$C3 


LD 


DE, $C1 


PUSH 


DE 


CP 


08H 


JR 


Z,$C6 


CP 


18H 


JR 


Z,$C5 


CP 


09H 


JR 


Z,$C8 


CP 


'R'&IFH 


JR 


Z,$C7 


CP 


OAH 


RET 


NZ 


POP 


DE 


LD 


(HL),A 


LD 


A,B 


OR 


A 


JR 


Z,$C1 


LD 


A, (HL) 


INC 


HL 


DEC 


B 


CALL 


@DSP 


JR 


$C3A 



; Break? 

; Go if not a control 
; Carriage return ? 
; Clear? 

; Set return address 
; Backspace? 
; Backspace to BOL 
;Tab? 

;CTL-R? 

; Line feed? 

; Ret if none above 

; Pop the return 

; Stuff the char 
; Check on buffer full 

; Loop if so 

; else get char 
; & bump pointer 
; Count down 
; Display entry 
; then loop 



Clear the screen invoked 



$C3 CALL @CLS 

LD B,C 

POP HL 

PUSH HL 

$C3A JR Z, $C1 

$C3B JR $C1 1 



$C6 



; Reset to start of 
; line & start of 
: buffer 



Backspace key entry 



LD 


A,B 


CP 


C 


RET 


Z 


DEC 


HL 


LD 


A, (HL) 


CP 


OAH 


INC 


HL 


RET 


Z 


DEC 


HL 


INC 


B 


LD 


A, 8 


JR 


@DSP 



If buffer is empty 
return 

else do the backspace 

Last char a line feed? 

Return if so 

Add back one char 
; Backspace the cursor 



Test if repeat last command 



$C7 



$C8 



$C9 



LD 


A, (CFLAG$) 


AND 


4 


RET 


Z 


LD 


A,B 


CP 


C 


RET 


NZ 


POP 


HL 


POP 


HL 


JP 


@DSPLY 


Tab 


entered 


PUSH 


HL 


CALL 


ADDR_2_R0N 


LD 


A,L 


POP 


HL 


AND 


7 


NEG 




ADD 


A, 8 


LD 


E,A 


LD 


A,B 


OR 


A 


RET 


Z 


LD 


A, ' ' 


LD 


(HL) ,A 


INC 


HL 


CALL 


DSPBYT 


RET 


NZ 


DEC 


B 


DEC 


E 


RET 


Z 


JR 


$C9 



;Test if SYS1 KEYIN bit 

; is set (bit 2) 

; Ignore CTL if not 

; If not at 1st position, 

; dont permit it 

;Pop return to KEY 

; Point to command buffer 

; Display the old command 



; Get pos on line 
JL ; Get row, col in HL 

;Xfer column to A 



; Negate and add tab 

;Reg E has tab length 
; Check on buffer full 



;Put spaces until 

; tab expanded 



; Dec buffer remaining 
;Dec tab count 



Exit KEYIN routine 



$C10 


SCF 




; BREAK exit with CF 


$C11 


PUSH 


AF 


; Save flag 




LD 


A, ODH 


; Stuff CR at end 




LD 


(HL) ,A 






CALL 


@DSP 


; & display it 




LD 


A,C 


; Calculate # of chars 




SUB 


B 


; entered 




LD 


B,A 






POP 


AF 


;Rcvr flag 




POP 


HL 


; Restore buffer ptr 




RET 







Byte I/O device handler 

C => character if PUT or CTL 
DE => Device Control Block 



; *MOD 

@CTL PUSH BC 

LD B, 4 

JR IOBGN 

@KEY CALL @KBD 

RET Z 



;Bit 2, CTL 

; Scan the keyboard 

; Ret if key available 



@JCL 

@KBD 
@GET 



@PRT 

@DSP 
@PUT 

IOBGN 



OR 

JR 

RET 

LD 

JR 

LD 

PUSH 

LD 

JR 

LD 

JR 

LD 

PUSH 

LD 

PUSH 

PUSH 

PUSH 

POP 

PUSH 

LD 

LD 

LD 

OR 

JR 



A 

Z, @KEY 



; Return if error 



DE,JCLCB$ ;JCL file FCB 

@GET 

DE,KIDCB$ ; Keyboard DCB 

BC 

B,l 

IOBGN 

DE, PRDCB$ 

@PUT 

DE,DODCB$ ; Video DCB 

BC 

B,2 

IX 

HL 

DE 

IX 

DE 

C,A 

HL, QRSTREG 

A, (LBANK$) 

A 

Z,$DO 



;Bit 0, GET 
; Printer DCB 



;Bit 1, PUT 

; Save the registers 

;Xfer DCB to IX 



Xfer the I/O char 
Restore register routine 
If bank is not 

resident, need bo 

get it resident! 



Some other bank is resident - invoke bank 





PUSH 


BC , 


Save reg again 




XOR 


A 


Prepare for bank—O 




LD 


B,A 






LD 


C,A 






CALL 


@BANK , 


Invoke bank—O 




LD 


H,B 


Get old bank data 




LD 


L,C 


into reg HL 




POP 


BC , 


Rcvr BC 




PUSH 


HL , 


Bank data to stack 




LD 


HL, RSTBNK 


Set return address 


$D0 


PUSH 


HL 


to restore registers 




LD 


A, (DE) 


;P/u DCB type byte 




OR 


A 






RET 


z 


Back if nothing 




CP 


8 


Ck on GET/PUT/CTL 




JR 


NC, @CHNIO 


Branch if special 




LD 


L, (IX+1) 


else p/u the vector 




LD 


H, (IX+2) 




$D1 


LD 


A,B 


Xfer I/O code 




CP 


2 


Set flags state 




JP 


(HL) 




RSTBNK 


POP BC 


; Get old bank data 




PUSH 


AF , 


Can ' t affect AF 




LD 


A,C 


Request to A 




CALL 


@BANK , 


Bring back original ban 




POP 


AF 




@RSTREG 


POP DE 


; Restore regs 




POP 


HL 






POP 


IX 






POP 


BC 





RET 

r 

$D2 PUSH HL 

POP IX 

@CHNIO LD L, (IX+1) ;P/u vector address 

LD H, (IX+2) 

$D3 LD A, (IX+O) ;P/u the DCB type 

OR A ;File Control Block? 

JP M, @ BYTE 10 

BIT 3, A ;Test NIL bit 2nd 

JR NZ, $D5 

BIT 4, A ; Routed? 

JR NZ,$D2 ;Go if routed DCB 

BIT 5, A ;If not linked, then 

JR Z, $D1 ; must be filtered 

PUSH HL ; Point to the link DCB 

POP IX 

LD (IX+3),B ; Save the direction 

PUSH IX 

CALL @CHNIO ;I/0 to 1st device 

POP IX 

LD B, (IX+3) ;P/u the direction 

JR NZ,$D6 ;Go on NZ flag 

r 

; Z-flag on return - check input /output 

r 

; If input & got char, 
; p/u the linked DCB 





BIT 


0,B 


$D4 


LD 


L, (IX+4) 




LD 


H, (IX+5) 




JR 


Z, $D2 


$D5 


CP 
RET 


A 



1st link got NZ condition - if input, get link 

$D6 BIT 0,B ;Was it input/output? 

; Output is error 
; If A=0, then no input 
JR Z, $D4 

$D7 



BIT 


0,B 


JR 


Z,$D7 


OR 


A 


JR 


Z,$D4 


OR 


A 


RET 




END 





;KIDVR/ASM - LS-DOS 6.2 

AD ISP ' <Keyboard Driver > ' 

■? 
r 

; *MOD 



LF EQU 1 

CR EQU 13 

KBO EQU 0F401H 

KB 6 EQU OF 4 4 OH 

SHIFT EQU OF 4 8 OH 



KIDVR JR 
DW 
DB 
DW 
DW 

KIDATA$ 
DB 

RPTINIT 
DB 

RPTRATE 
DB 

KBROWO 

DB 

KBR0W4 

DB 

KBR0W6 

DB 



KIBGN 

KILAST 

3, '$KI 

KIDCB$ 



DB t 



EQU 

22 

EQU 

2 

EQU 



;Row RAM address 
; Row 1 RAM address 
; Row 7 RAM address 

; Branch around linkage 
; Last byte used 



; Pointer to DCB 
; Spare 
; Last key entered 

; Repeat time check 
$-KIDATA$ 

; 22 * 33. 3ms = . 733 sec 
$-KIDATA$ 

;2 x RTC rate 
$-KIDATA$ 
-1,-1,-1,-1 ; Image of rows 0-3 
EQU $-KIDATA$ 

-1,-1 ; Image of rows 4-5 

EQU $-KIDATA$ 
-1,-1 ; Image of rows 6-7 



Conversion table for keyboard row 7/8 



KBTBL DB 
DB 
DB 
DB 
DB 
DB 



CR, 1DH, 1FH, 1FH 
80H, 0, OBH, 1BH 
LF, 1AH, 8, 18H 
9, 19H,20H,20H 



;<ENTER> <CLEAR> 
;<BREAK> <UPARW> 
;<DNARW> <LTARW> 
;<RTARW> <SPACE> 



81H, 91H, 82H, 92H ; <F1> <F2> 
83H, 93H ; <F3> 



/ Table to generate 5B-5F, 7B-7F 

SPCLTB DB ',/.;', CR 

; Entry to keyboard driver 



KIBGN LD A, C 

PUSH AF 

CALL QKITSK 

POP AF 



; Get the character 
; Save flags 

; Hook for KI task 



Screen print (Control-*) processing 



CALL TYPAHD 

RET NC 

PUSH AF 

CP 

JR Z, $K1 

POP AF 



; Chain downstream 
;Ret if not <CONTROL> 
; Save flag state 

; Go if screen print 



RET 



/ 


Perfc 


<rm a screen 


r 

$K1 


POP 


AF 




LD 


A, (DFLAG$) 




RLCA 






LD 


A, 3EH 




JR 


NC, $+4 




LD 


A, OFEH 




LD 


($K4),A 




LD 


HL, KFLAG$ 




RES 


0, (HL) 




PUSH 


HL 




LD 


HL, 


$K2 


LD 


B,l 




CALL 


@VDCTL 




JR 


NZ, $K6 




CP 


2 OH 




JR 


NC, $+4 




ADD 


A, 4 OH 




CP 


8 OH 




JR 


C,$K5 


$K4 


LD 


A, ' . ' 


$K5 


CALL 


@PRT 




JR 


NZ, $K6 




INC 


L 




LD 


A,L 




SUB 


80 




JR 


NZ, $K2 




LD 


L,A 




DEC 


L 




EX 


(SP) , HL 




BIT 


0, (HL) 




EX 


(SP) , HL 




JR 


NZ, $K6 




INC 


H 




LD 


A,H 




CP 


24 




LD 


A,CR 




JR 


NZ, $K5 


$K6 


LD 


A,CR 




CALL 


@PRT 




POP 


HL 




RES 


0, (HL) 




JR 


NOCHAR 



print 

; Clean the stack 

; Check on Graphic bit 

; Init for LD A, ' . ' 

; Go if not Graphic 
; Change to CPR n 
; Stuff cpr or Id 

; Reset the BREAK bit 

; Save on stack 

; Init for row, col 

; Get a character at the 

; row—H, col-L 

; Go on error 

; Convert control codes 
; to cap A-Z, + 
;Cvrt anything from X'80' 

thru X'FF' to a ' . ' 
; unless graphic bit set 
; Print the char & loop 

; Bump column counter 
; Check for end-of—line 

; Loop if not EOL 

; Reset to column 

;Adj for CR force 
;Get KFLAG$ 
;Exit with A=0 on 
; on entrance of BREAK 

; Bump row counter 

; Test for end of screen 



;Put the CR S loop 
; Close out with CR if 
; BREAK key detected 
;Pop the KFLAG 

; & reset BREAK bit 



Driver to scan the keyboard 



• *MOD 
KISCAN 



$L1 



LD 
LD 
LD 
LD 
LD 
XOR 



LD IX,KIDATA$ ; Point to data area 

HL, KIDATA$+KBROW0 ; Load kbd image start 

BC,KBO ;Load start of keyboard 

D, ; Zero the key counter 

A, (BC) ; Load 1st char from kbd 

E,A 



(HL) 



;XOR with old value 



JR 


NZ, $L2 


INC 


D 


INC 


HL 


RLC 


C 


JP 


P,$L1 


LD 


A, (BC) 


AND 


078H 


LD 


E,A 


XOR 


(HL) 


JR 


NZ, $L2 


LD 


A, (IX+O) 


OR 


A 


JR 


Z, NOCHAR 


LD 


A, (TIMER$) 


SUB 


(IX+1) 


JR 


Z,$L10 


SUB 


(IX+RPTINIT) 


JR 


C, $L1 


NOCHAR 


OR 1 


LD 


A,0 


RET 





; Go if different 
•Bump key counter 
Bump image pointer 
Go to next row 
Loop until end of rows 

; Get row 7 
Strip SHIFT, CTL 



■Keydown? It's same as 

the last if so 
•Ret if no key 
■Do we repeat the 

; same key? 

; Go repeat if time up 

; Beyond . 75 seconds? 

; Go if yes 

;Else don't repeat 
Show NZ with A=0 



Found a change in the key matrix 



$L2 LD (HL) , E 

AND E 
JP Z, NOKEY 



; Stuff KB image with new 
KB row value 

; Go if new is none 



Convert the depressed key 



$L3 



LD 


E,A 


LD 


A,D 


RLCA 




RLCA 




RLCA 




LD 


D,A 


LD 


C,l 


LD 


A,C 


AND 


E 


JR 


NZ, $L6 


INC 


D 


RLC 


C 


JR 


$L3 



; Save the active bit 
; Calculate 8 * row 



; Save 8 * row 

; Add 8 * row + column 

; Check if bits match 

; Go if match 
; else bump value 
; Shi ft compare bit 
; Loop to test next 



Key pressed was not an alpha 



$L4 



$L5 



SUB 


9 OH 


JR 


NC, $L9 


ADD 


A, 4 OH 


CP 


3CH 


JR 


C,$L5 


XOR 


10H 


BIT 


0,E 


JR 


Z,$L11 


XOR 


10H 


JR 


$L11 



; Adjust for non-alpha 

; Go if special key 

; Cvrt to numeric/ symbol 

; Manipulate to get 

; proper code 

;Flip bit 4 

; Check SHIFT 

; Go if unshift 

; else adjust for SHIFT 



Found a key - Set up the function codes 



$L6 



LD 


A, (SHIFT) ; 


LD 


E,A 


AND 


2 


RRCA 


/ 


OR 


E 


LD 


E,A 


LD 


A,D 


ADD 


A, 60H ; 


CP 


8 OH ; 


LD 


HL, KFLAG$ 


JR 


NC, $L4 



P/u the SHIFT key 
Merge RH and LH shift keys 
Only merge bit 1 
Bit 1 to bit 
Merge bits & 1 
Value of (RHorLF) shift 
Load semi— converted 
If alpha, convert to 
correct value 

; Go if not alpha 



Alpha <@-Z> - If caps lock or <SHIFT>, 
Convert to caps unless CLEAR 



$L7 



$L8 



BIT 

JR 

CP 

JR 

XOR 

JR 

BIT 

JR 

BIT 

JR 

BIT 

JR 

JR 



CTLA2Z 



$L10 



JR 

BIT 

SCF 

RET 

LD 

RET 

LD 

ADD 

JR 



2,E ;CTRL key down? 

NZ,CTLA2Z ;CTRL sets <00-lA> 

60H ; Invert @ and s 

NZ, $L7 

20H ; Invert and bypass test 

$L8 ; for CAPS lock 

1, (IX+KBROW6) ;If clear don't test 

NZ, $L8 ; for CAPS lock 

5, (HL) ;Caps lock? 

NZ, TGLCASE 

0,E ; SHIFT key down? 

Z,$L11 ;Bypass if not shifted 

TGLCASE ; Convert to upper case 

SUB 60H ; Convert CTRL A-Z 

NZ,$L11 ;Go on A-Z 

0,E ; Shifted? 

;Set C-flag for CTL-@ 

Z ; and return if unshifted 

A, 1CH ; else set EOF error 

A, (TIMER$) ;Advance time check 

A, (IX+RPTRATE) ; by 0.067 seconds 

$L12 ;Go output the key 



Special keys - rows 6 S 7 



$L9 



CP 


11 


JR 


Z, CAPSKEY 


JR 


C,$+4 


SUB 


4 


LD 


HL, KBTBL 


RLCA 




BIT 


0,E 


JR 


Z,$+3 


INC 


A 


LD 


C,A 


LD 


B,0 


ADD 


HL,BC 


LD 


A, (HL) 


JR 


$L11 



/Compress F1-F3 keys 
; while checking for CAP 
F1-F3 to 8-10 

;Pt to special char table 

; Index into table, 

; shifted code is +1 



; Index the table 

; Calculate position of 

; char in table 

; Load char from table 
; Bypass restore of char 



TGLCASE 

$L11 CP 
JR 
LD 
BIT 
JR 
LD 
SET 
JR 

$L11B RLA 

$L11A BIT 
JR 
LD 
RES 
SUB 
CP 
LD 
JR 
XOR 
OR 

NOTALPH 
JR 

GOTSHFT 
JR 

TSTSPA 

JR 

BIT 

JR 



XOR 2 OH 
8 OH 

NZ, $L11A 
HL, SFLAG$ 
4, (HL) 
NZ, $L11B 
HL, KFLAG$ 

0, (HL) 
$L11A 

;Rotate bit 7 out 

1, (IX+KBROW6) ; CLEAR key pressed? 



; Toggle case, is bit 5 
; BREAK key? 

;Ck on <BREAK> disable 
;Pt to System flag 

; <BREAK> key disabled? 
; Bypass if so 
; Point to keyboard flag 

; Set Break Pressed bit 



Z, NOTALPH 

D,A 

5, A 

'A' 

'Z'-'A'+l 
A,D 
NC, $+4 
2 OH 
8 OH 

BIT 0,E 
Z, FIXCLR 
CP 9FH 

Z, FIXSCL 
CP 2 OH 

NZ, KEY OK 
0, (IX+KBROW4) 
Z, KEYOK 



; Go if not down 

; Save code 

; Set to upper case for 

; test A-Z 

; Compare to 26 decimal 

; Get back actual char 

; Go if not A-Z 
; Shi ft keyboard case 
;Set bit 7 for CLEAR key 

; SHIFT key down? 
; Go if not 

; Shift-clear? 
; Go if so 

; Shift or shift spcl? 
; Go if not 

; Ck zero key 

; Go if not down 



Toggle the caps lock bit in the KFLAG$ 



CAPSKEY 

CASHK$ 

XOR 

LD 

JR 

FIXSCL 

FIXCLR 

JR 

NOKEY XOR 

KEYOK LD 
LD 

TYPHK$ 

LD 

DELAY 2 

$L12 LD 
LD 
OR 
JP 
BIT 
SCF 
JR 
CCF 

DVREXIT 

RET 

SPECL PUSH 

$L13 LD 



A,20H ;Caps wasn't 20H 

HL,KFLAG$ ; Reverse case by 
; flipping bit 5 



; Reset bit 7 
; Clear key? 
; Go if not 



LD 
LD 

(HL) 

(HL),A 
NOKEY 
XOR 8 OH 
CP 9FH 

NZ, KEYOK 
A 

(IX+O) ,A 
BC, 0184H 
CALL PAUSEQ 

A, (TIMER$) ; Set initialization 
ADD A, (IX+RPTINIT) ; repeat key delay 



; Delay 



(IX+1) ,A 
A, (IX+O) 
A 

Z, NOCHAR 
2,E 

NZ, SPECL 

BIT 7, A 

Z 

AF 

HL, SPCLTB 



; Save new repeat value 

; Check if any key 

■ code was saved 

; Ret if none 

; Shift key down? 

; Set Carry Flag 

;Ret if CTRL 

; Complement C Flag 

;Z flag set on non-CLEAR 
; Go if not CLEAR+key 
; Save code 
; Special char table 



RES 7, A ;TURN OFF "CLEAR" 

LD BC, 5<8 ! 5BH ; 5 chars, starting char 

JR NC, $+3 ; if not CTRL 

DEC B ; else only 4 

SPCLLP CP (HL) ;Is this it? 

JR Z,HIT ;Go if so 

XOR 10H /Flip shift state 

CP (HL) ;Is that it? 

JR Z,HITWS ;Go if so (with shift) 

XOR 10H ;Flip back 

INC HL ;Bump sped table ptr 

INC C ;Bump "convert to" char 

DJNZ SPCLLP ;Loop through table 

POP AF ;Not found in table 

JR C, CKCTL2 ; Ck CTL for C flag 

CKCTL1 CP A ;Set Z flag 

RET 

HITWS SET 5,C ;Move to LC set 

HIT POP AF ; Restore orig char 

LD A, C ; Load converted one 

CKCTL JR NC, CKCTL1 ; Go if ctl key not down 

AND 1FH ; Force ctl code 

CKCTL2 CP A ;Set Z flag 

SCF ;Set C flag for CTRL 
RET 



Check the type ahead buffer for any character 



; *MOD 

TYPAHD EQU $ 

CALL ENADIS_DO_RAM 



; Bring up Keyboard RAM 



HL,TYPBUF ;P/u start of type buffer 
; Turn off type ahead 
;Go on @GET 

;No PUT to *KI 
;CTL 3 function? 
; Clear buffer if so 

;Go if CTL 255 function 
; Nothing done, No error 



LD 


HL, TYPBU 


LD 


(HL) , OFF 


JR 


C,$M1 


JR 


Z, TYPON 


CP 


3 


JP 


Z, CLRTYP 


INC 


A 


JR 


Z, CTLFF 


XOR 


A 


JR 


TYPON 



Handle a CTL-255 — scan keyboard into user rowbuf 



CTLFF EQU $ 

LD HL, KBO 

LD B, 8 

$M0 LD A, (HL) 

LD (IY+O) , A 

INC IY 

RL L 

DJNZ $M0 

RET 



; Start of keyboard image 
; Do 8 rows 

;P/u image 
; and Xfer to user buffer 

;Pt to next higher row 



$M1 PUSH HL 
INC HL 
LD A, (HL) 



;Bump to PUT pointer 
; & pick it up 



$M2 



INC 


HL 


f 


CP 


(HL) 


f 


JR 


Z, $M4 


r 


PUSH 


HL 


r 


LD 


E, (HL) 




INC 


HL 


f 


LD 


D,0 


r 


ADD 


HL,DE 


f 


LD 


B, (HL) 




POP 


HL 


r 


INC 


(HL) 


r 


LD 


A, 80 


f 


CP 


(HL) 


f 


JR 


NC, $M2 




LD 


(HL) , 




LD 


A, (HL) 




DEC 


HL 


r 


CP 


(HL) 


f 


CALL 


Z,R7KFLG 


; 


POP 


HL 


r 


LD 


(HL) , 




LD 


A,B 


f 


CP 


A 


f 


RET 







Bump to GET pointer 

The same? 

Go if so 

Save pointer to GETPTR 

;P/u offset to buffer 

Pt to buffer start 

Add offset to start 

to point to char posn 
;GET the stored char 

Rcvr GETPTR 

Bump by one for char 

Check for > 80 
after INC 

; Go if not at end 
; Reset to start of buf 
; If we emptied the 
type-ahead buffer, 
update KFLAG$ 

Reset bit 7 if empty 

Pointed to & get switch 
; Turn type back on 

Transfer char/flag 

Set the Z flag 



No character in type ahead buffer - get from kbd 



$M4 CALL 
POP 

TYPON LD 
RET 



KISCAN ; Call keyboard driver 

HL ; Rcvr swit ch 

(HL) , ; Type ahead back on 



Type ahead task 10 - scans keyboard and saves key 



TYPTSK$ 
$M5 LD 
AND 
RET 
CALL 
LD 
LD 
OR 
RET 
INC 
PUSH 
KIHOOK 

POP 

RET 

PUSH 

POP 

CP 

PUSH 

PUSH 

CALL 

POP 

POP 

CP 



; Task entry for processor 
; If type-ahead suppressed 
: then return 



DW $M5 

A, (DFLAG$) 

2H 

Z 

ENADIS_DO_RAM ; Bring up the keyboard 

HL, TYPBUF ;P/u type switch 

A, (HL) ; If previous driver is 



A 

NZ 

HL 

HL 

CALL 

HL 

NZ 

AF 

BC 

8 OH 

AF 

HL 

Z,$M6 

HL 

AF 

OCOH 



; currently executing, 
; do not stack more keys 
;Bump to PUTPTR 
; & save it 
KISCAN ; and scan for a character 

; Ret if no char 
; else Xfer char 
; & flag to BC 
; Check for <BREAK> 



; If so clear type buf 
; Restore regs 

;If CLEAR @, reset keybuf 



JR 

LD 

LD 

INC 

CP 

JR 

LD 

ADD 

CP 

JR 

ADD 

LD 

RET 

CLEAR 



Z,$M6 
E, (HL) 
A,E 
HL 
(HL) 
Z,$M8 
A, (TIMER$) 



CLRTYP 

$M6 XOR 
LD 
INC 
LD 

R7KFLG 

RES 
RET 



;P/u PUTPTR & compare 
; GETPTR 



; Jump if keybuffer empty 
; Check if we expired the 



A, (IX+RPTRATE) 

(IX+1) 
NZ, $M7 
A, (IX+RPTRATE) 

(IX+1), A 



; time interval between 

; repeating keys 

; Go if time not up 

; Re-adjust time check so 

we don't repeat in 

type-ahead task 



control key entered, clear the buffer 

INC HL ;Bump to PUT pointer 
A 

(HL),A ;lst PUT is loc'n 

HL ;Pt to GETPTR 

(HL) ,A ;lst GET is loc'n 
LD HL,KFLAG$ ; Show buffer empty 
7, (HL) 



; Char to stuff - check if buffer will overflow 

r 

$M7 LD A,E ;P/u current PUT pointer 

INC A ; If the next loc'n wraps 

CP (HL) ; to the GET loc'n, 

RET Z ; don't permit overrun 

$M8 PUSH HL ;Save ptr to GETPTR 

INC HL ;Pt to start of keybuf 

LD D, ; & calculate PUT loc 'n 

ADD HL, DE 

LD (HL),B ; Store the char 

LD HL,KFLAG$ ; Show type buffer 

SET 7, (HL) ; is not empty 

POP HL ;Rcvr ptr to GETPTR 

DEC HL ;Back up to PUTPTR 

INC (HL) ;Bump past the char 

LD A, 80 ; Check for >80 

CP (HL) 

RET NC ;Back if not over 80 

LD (HL) ,D ; else reset to 1st 

RET ; position in buf (0) 

Type ahead buffer area 

TYPBUF EQU 0FF80H 

TYPBUF+O = On/Off flag 
TYPBUF+1 = Storage pointer 
TYPBUF+2 = Retrieve pointer 
TYPBUF+3 = Start of actual buffer 



KILAST 



EQU $-1 



END 



; LDOS60/EQU -Equates from cross reference ofLowcore 
ADISP '<LDOS60/EQU>' 



@$SYS EQU 08F0H 

@@1 DEFL OOOOH 

@@2 DEFL OOOOH 

@@3 DEFL OOOOH 

@@4 DEFL OOOOH 



0877H 

EQU 1300H 

EQU 0689H 

EQU 0553H 

0545H 

0623H 

07A8H 

EQU 06E3H 

0642H 

EQU 052DH 

EQU OOOOH 

EQU OOOOH 

0638H 

EQU 7BDH 

07C2H 

EQU 06F6H 

OOOOH 

OOOOH 

063 OH 

0635H 

0628H 

EQU 0585H 

EQU 0089H 

EQU 0503H 

EQU 0500H 

OOOOH 

OFFFFH 

0530H 

EQU 06C9H 

EQU 0084H 

EQU 0528H 

063DH 

0645H 

EQU 0FE9H 

EQU 0680H 

078DH 

OFFFFH 

EQU 0B99H 

EQU 0D38H 

EQU 0D42H 

ADDR_2_R0WC0L EQU 0DF1H 

BAR$ EQU 020 1H 

EQU 439DH 
020 OH 

EQU 0A7BH 
EQU 006CH 

CORE$ DEFL 030 OH 

CRTBGN$ EQU 0F800H 

DATE$ EQU 0033H 



@BANK EQU 
QBYTEIO 
@CHNIO 
QCKBRKC 
@CLS EQU 
@CTL EQU 
@DATE EQU 
QDIV1 6 
@DSP EQU 
@DSPLY 
@FRENCH 
@ GERMAN 
@GET EQU 
@HEX1 6 
@HEX8 EQU 
QHEXDEC 
@HZ50 EQU 
@INTL EQU 
@JCL EQU 
@KBD EQU 
@KEY EQU 
@ KEY IN 
QKITSK 
QLOGER 
@LOGOT 
QM0D2 EQU 
QM0D4 EQU 
@MSG EQU 
@MUL1 6 
@ OP REG 
@PRINT 
@PRT EQU 
@PUT EQU 
@RSTNMI 
@RSTREG 
QTIME EQU 
@USA EQU 
@VDCTL 
QVDCTL3 
QVDCTL 



BOOTST$ 
BUR$ EQU 
CASHK$ 
CFLAG$ 



DAYTBL$ 


EQU 


04C7H 


DCBKL$ 


EQU 


0031H 


DCT$ EQU 


047 OH 




DFLAG$ 


EQU 


006DH 


DIS_DO_RAM 


EQU 


084 6H 


DODATA$ 


EQU 


0B94H 


DODCB$ 


EQU 


021 OH 


DO_CONTROL 


EQU 


0C44H 


DO_DSPCHAR 


EQU 


0CB8H 


DO_INVERT_i 


DIS 


EQU 0C8CH 


DO_INVERT_, 


ENA 


EQU 0C89H 


DO_INVERT_i 


OFF 


EQU 0C9BH 


DO_MASK 


EQU 


OOOOH 


DO_RET 


EQU 


OBCBH 


DO_RETI 


EQU 


OBCCH 


DO_SCROLL 


EQU 


OCCEH 


DO_TABS 


EQU 


OBEAH 


DSKTYP$ 


EQU 


04C0H 


DTPMT$ 


EQU 


04C2H 


DVREND$ 


EQU 


0FF4H 


DVRHI$ 


EQU 


0206H 


ENADIS_DO_j 


RAM 


EQU 081 7H 


FDD I NT $ 


EQU 


OOOEH 


FLGTAB$ 


EQU 


00 6 AH 


GET_@_ROWCOL 


EQU ODAEH 


HERTZ $ 


EQU 


07 5 OH 


HIGH$ EQU 


040EH 




IFLAG$ 


EQU 


0072H 


INBUF$ 


EQU 


0420H 


INTVC$ 


EQU 


003EH 


JCLCB$ 


EQU 


0203H 


JLDCB$ 


EQU 


0230H 


KCK@ EQU 


07D6H 




KFLAG$ 


EQU 


0074H 


KIDATA$ 


EQU 


08FCH 


KIDCB$ 


EQU 


0208H 


LBANK$ 


EQU 


0202H 


MAXDAY$ 


EQU 


0401H 


MODOUT$ 


EQU 


0076H 


MONTBL$ 


EQU 


04DCH 


NFLAG$ 


EQU 


0077H 


OPREG$ 


EQU 


0078H 


OPREG_SV_AREA 


EQU 086EH 


OPREG_SV_PTR 


EQU 0835H 


PAKNAM$ 


EQU 


0410H 


PAUSE@ 


EQU 


0382H 


PCSAVE$ 


EQU 


07AFH 


PDRV$ EQU 


001BH 




PRDCB$ 


EQU 


0218H 


PUTAQDE 


EQU 


ODCDH 


PUT_@ EQU 


ODCAH 




PUT_@_ROWCOL 


EQU 0DC6H 


RFLAG$ 


EQU 


007BH 


ROWCOL_ 2_ADDR 


EQU ODD OH 


RSTOR$ 


EQU 


04C4H 


S1DCB$ 


EQU 


0238H 


SET_SCROLL 


EQU 


0CF3H 



SFLAG$ 


EQU 


001 'CH 


SIDCB$ 


EQU 


022 OH 


SODCB$ 


EQU 


0228H 


STACK$ 


EQU 


0380H 


START$ 


EQU 


OOOOH 


TIME$ EQU 


002DH 




TIMER$ 


EQU 


002CH 


TIMSL$ 


EQU 


002BH 


TIMTSK$ 


EQU 


0713H 


TMPMT$ 


EQU 


04C3H 


TRACE_INT 


EQU 


07B1H 


TYPHK$ 


EQU 


0A8FH 


TYPTSK$ 


EQU 


0B26H 


VFLAG$ 


EQU 


007FH 


ZERO$ EQU 


0401H 





; LOADER/ ASM - LS-DOS 6.2 

CORE$ DEFL $ 

ORG SVCTAB$ 

; Supervisor Call table - Page 5 

DW @IPL, @KEY, @DSP, @GET ; 0-3 

DW @PUT, @CTL, @PRT, @WHERE ; 4-7 

DW @KBD, QKEYIN, QDSPLY, (3L0GER ; 8-11 

DW QLOGOT, @MSG, QPRINT , @VDCTL ; 12-15 

DW QPAUSE, @PARAM, @DATE, @TIME ; 1 6-1 9 

DW @CHNIO, QABORT, @EXIT, SVCERR ; 20-23 

DW @ CMND I, QCMNDR, @ ERROR, @ DEBUG ; 24-27 

DW @CKTSK,@ADTSK,@RMTSK,@RPTSK ; 28-31 

DW QKLTSK, @CKDRV, (3D0DIR, QRAMDIR ; 32-35 

DW SVCERR, SVCERR, SVCERR, SVCERR ; 36-39 

DW QDCSTAT, @SLCT, @DCINIT, QDCRES ; 40-43 

DW QRSTOR, @STEPI, @SEEK, @RSLCT ; 44-47 

DW QRDHDR, QRDSEC, (3VRSEC, @RDTRK ; 48-51 

DW @HDFMT, QWRSEC, @WRSSC, @WRTRK ; 52-55 

DW @RENAME, QREMOVE, @INIT, @OPEN ; 56-59 

DW QCLOSE, @BKSP, @CKEOF, @LOC ; 60-63 

DW @LOF, QPEOF, @POSN, @READ ; 64-67 

DW @REW,@RREAD,@RWRIT,@SEEKSC ; 68-71 

DW @SKIP,@VER,@WEOF, QWRITE ; 72-75 

DW @LOAD,@RUN,@FSPEC, @FEXT ; 76-79 

DW @FNAME, QGTDCT, @GTDCB, @GTMOD ; 80-83 

DW SVCERR, QRDSSC, @GATRD, @DIRRD ; 84-87 

DW QDIRWR, QGATWR, @MUL8, QMUL16 ; 88-91 

DW SVCERR, @DIV8, @DIV1 6, SVCERR ; 92-95 

DW QDECHEX, @HEXDEC, @HEX8 , @HEX1 6 ; 96-99 

DW @HIGH$, QFLAGS, @BANK, QBREAK ; 100-1 03 

DW @SOUND, @CLS, QCKBRKC, SVCERR ; 104-107 

DW SVCERR, SVCERR, SVCERR, SVCERR ; 108-1 1 1 

DW SVCERR, SVCERR, SVCERR, SVCERR ; 112-115 

DW SVCERR, SVCERR, SVCERR, SVCERR ; 116-119 

DW SVCERR, SVCERR, SVCERR, SVCERR ; 120-123 

DW SVCERR, SVCERR, SVCERR, SVCERR ; 124-127 

ORG CORE$ 

f 

; Routine to set or retrieve HIGH$/LOW$ 



@HIGH$ 


LD A,H 


OR 


L 


JR 


Z, GETHILO 


LD 


A, (CFLAG$) 


RRCA 




LD 


A, 43 


RET 


C 


INC 


B 


DEC 


B 


JR 


NZ, PUTLO 


LD 


(HIGH$) , HL 


GETHI LD 


HL, (HIGH$) 


RET 




GETHILO 


INC B 


DEC 


B 



; Test if put or get 

; Go if get 

;Is HIGH$ changeable? 

; Init SVC p arm error 

;Back with NZ 

,-Test for HIGH$/LOW$ 

;Go if LOW$ 
;Set new HIGH$ 
;P/u the value & 
; ret with Z flag 

;Test for HIGH$/LOW$ 



JR 
LD 
PUTLO LD 
XOR 
RET 



Z, GETHI 

HL, (LOW$) ;P/u LOW$ 

(LOW$),HL ;Get LOW$ 

A ;Set Z flag 



QFLAGS 



LD 



IY, FLGTAB$ 



RET 



@BREAK 



LD 

EX 

LD 

POP 

RET 

@ WHERE 

JP 

; Code 

r 

@CMNDR 

RST 
@CMNDI 

RST 
QFSPEC 

RST 
QFEXT LD 

RST 
@PARAM 

RST 
@OPEN LD 

RST 
@INIT LD 

RST 
QGTDCB 

RST 
QCKDRV 

RST 
(3 RENAME 

RST 
QCLOSE 

RST 
QFNAME 

RST 
@DBGHK 
@ DEBUG 

LD 

RST 
EXTDBG$ 
QREMOVE 

RST 
QDOKEY 

RST 
QRAMDIR 

RST 
QDODIR 



PUSH HL 
HL, (BRKVEC$) 

(SP) , HL 

(BRKVEC$) , HL 
HL 



POP HL 
(HL) 



; Save user vector 
;P/u current vector 
; Save current & get user 
; Stuff new vector 
; Recover old vector 



for these SVCs is in the system overlays 

; Interpret command & RET 
; Interpret a command 
; Parse a filespec 
; Optional default EXT 

; Parameter scanner 



LD A, 0A3H 

28H 

LD A, 0B3H 

28H 

LD A, 0C3H 

28H 

A, 0D3H 

28H 

LD A, 0E3H 

28H 

A, 94H ;Open a file 

28H 

A, 0A4H 

28H 

A, 0B4H 



LD 

28H 

LD 

28H 

LD 

28H 

LD 

28H 

LD 

28H 

RET 

PUSH AF 

A, 97H 

28H 



; Initialize a file 

;Get a DCB vector 
A, 0C4H ;Drive available? 

A, 0F4H ; Rename a file 

A, 95H ; Close a file 

A, 0A5H ; Recover filespec 

; Init DEBUG off 0TOP=on) 
; Enter system Debugger 



DW 

LD 

28H 

LD 

28H 

LD 

28H 

LD 



ORARETQ ;Hook for extended DEBUG 

A, 9CH ; Remove a file/device 

A, OCDH ;D0 execution 

A,09EH ;Directory data 

A, OAEH ; Directory data 



RST 28H 
QGTMOD LD A, OBEH 

RST 28H 



; Get module address 



gDCSTAT 

JR 
TAPDRV 

LD 
@SLCT LD 

JR 
QDCINIT 

JR 
@DCRES 

JR 
@RSTOR 

JR 
QSTEPI 

JR 
@SEEK LD 

JR 
@RSLCT 

JR 
QRDHDR 

JR 
QVRSEC 

JR 
QRDTRK 

JR 
QHDFMT 

JR 
@WRSEC 

JR 
@WRSSC 

JR 
QWRTRK 

JR 
QRDSEC 



These SVCs handle the disk primitive requests 

;FDC status 
;P/u drive # 
; Select drive 

;FDC init 



IOFUNC 



XOR A 

IOFUNC 

LD A, (LDRV$) 

C,A 

A,l 

IOFUNC 

LD A, 2 

IOFUNC 

LD A, 3 

IOFUNC 

LD A, 4 

IOFUNC 

LD A, 5 

IOFUNC 

A, 6 

IOFUNC 

LD A, 7 

IOFUNC 

LD A, 8 

IOFUNC 

LD A, 10 

IOFUNC 

LD A, 11 

IOFUNC 

LD A, 12 

IOFUNC 

LD A, 13 

IOFUNC 

LD A, 14 

IOFUNC 

LD A, 15 

IOFUNC 

LD A, 9 



PUSH BC 
B,A 



LD 

Bring up bank 

PUSH BC 

XOR A 

LD B,A 

LD C,A 

CALL @BANK 

POP AF 

PUSH BC 

PUSH AF 

POP BC 



;FDC reset 
; Restore to cyl 
; Step in 1 cyl 
; Seek a track/sector 

; Re-select drive 

; Verify a sector 



; Write standard sector 
; Write a system sector 
; Write a track 
; Read a sector 



; Save reg pair 
;Xfer the function code 



; Set bank function 0, 

; bank number 

; Bring up bank 

; Perform 'EX (SP),BC 



Continue disk I/O setup 



LD 


A,C 


LD 


(LDRV$) , A 


PUSH 


IY 


CALL 


QGTDCT 


LD 


A,20H 


OR 


A 


CALL 


GODOIO 


POP 


IY 



:Xfer the drive code 



; Get DCT address in IY 
Set illegal drive # 
if drive disabled 



Bring back the old bank 



POP 


BC 


PUSH 


AF 


LD 


A, 102 


RST 


28H 


POP 


AF 


POP 


BC 


RET 





; Save disk I/O ret code 
;Set for @BANK 
; No need to ck for error 
from @BANK 



GODOIO 



JP 



(IY) 



QGTDCT PUSH HL 

CALL DCTFLD@ 

EX (SP) , HL 

POP IY 
RET 



; Get I/O routine addr 
into IY 



; Entry to get DCT+8 of FCB (IX) drive spec 

r 

D@FBYT8 LD C, (IX+6) ;P/u drive 

r 

/ Entry to get DCT+8 of Reg C drive spec 



DCTBYT8Q 
LD 



Entry 

C => 
A => 
A <= 



EQU $ 
A, 8 

to get byte (Reg A) from DCT of Reg C drive 
logical drive specification 
relative byte requested from DCT 
data at position requested 



QDCTBYT 
LD 



CALL 

LD 

LD 

POP 

RET 



PUSH 

H,A 

DCTFLD@ 

L,A 

A, (HL) 

HL 



HL 



; Save the register pair 
;Xfer relative position 

; Get HL pointing to 
; DCT position 

; Get the byte 



Entry to get HL pointing to DCT byteReg C, Reg A 
C => logical drive number 
A => relative byte in DCT requested 

HL <= start of requested DCT for the drive 
A <= low order pointer to relative byte request 



DCTFLD@ 



LD 



A,C 



; Get drive spec & 



AND 


7 


ADD 


A, A 


LD 


L,A 


ADD 


A, A 


ADD 


A, A 


ADD 


A,L 


ADD 


A, 70H ; 


LD 


L,A 


ADD 


A,H 


LD 


H, DCT$>8 ; 


RET 





strip all but bits 0-2 
Times 2 

& saved 
Times 4 
Times 8 
Times 1 

Add DCT offset from 
Point L to DCT low order 
Add in rel posn desired 
Point H to DCT high order 



Process supervisory calls <0-127> 



SVCUSER 
JR 
LD 
EX 
LD 
EX 

ERRSVC 

RLCA 

LD 

LD 

LD 

INC 

LD 

LD 

EX 

LD 

RET 



CP 26 

Z, ERRSVC 

(LSVC$) , A 

(SP) , HL 

(SVCRET$) , HL 

(SP) , HL 
PUSH HL 



; Check for @ERROR 

; Skip next if so 

; Store SVC # as Last Exctd 
;P/u RET address 
; and save it 
; Restore RET address 
; Save HL 



; Multiply by 2 
H,SVCTAB$>8 /Base of Table 



L,A 
A, (HL) 
L 

H, (HL) 
L,A 

(SP) , HL 
A,C 



; Set up the low order 
;P/u table entry 



;SVC addr is in HL 

;P/u HL & stuff vector 
;Xfer for PUT type ops 



RST 28H vector - System & userSVCs 



RST28 OR 
JP 
EX 
PUSH 
LD 
LD 
LD 
LD 
POP 
POP 

HKRES$ 

LD 

OVRLYOLD 
LD 

TRANSFR 

PUSH 
LD 

SETQEXEC 
LD 
POP 
RET 



A ;Test if bit 7 set 

P, SVCUSER ; Jump on user SVC attempt 

(SP) , HL /Discard return addr & 

AF ; save HL, AF 

HL,@DBGHK ; Set up DEBUG linkage 
A, (HL) 

( SET @ EXEC) , A 

(HL) , 0C9H 

AF /Restore AF , HL 

HL 
CALL 
A,0 
EQU $-1 

(OVRLY$) ,A ; & update current 

CALL ;Trnsf addr of SYSx 

AF 

A,0 

EQU $-1 

(@DBGHK) , A 
AF 



CKMODQ ;Get overlay if needed 

;P/u new overlay # 



;Set to C9 if EXEC only 



DOS command overlay request 



CKMODg 



J 


PUSH HL 


LD 


H,A 


LD 


A,B 


LD 


(EX0VR2+1) , 


LD 


A,H 


OR 


1 


CP 


89H 


LD 


A,H 


JR 


Z, EXOVR 


CP 


8AH 


JR 


Z, EXOVR 


LD 


A, (OVRLY$) 


XOR 


H 


AND 


OFH 


LD 


A,H 


LD 


(OVRLYOLD) , 


LD 


HL, OVERLAY 


JR 


Z, EXOVR3 



; Save command value 

A ; Set overlay # 

;Set for SYS6 S SYS7 

; Is it either? 

; Get back the correct # 

;Sys6/7 req? Use ISAM! 
;Sys8 also ISAM 

;P/u current overlay 
; Ck if it's the one 
; we need to execute 

A ; Update current tempy 

; Init to SYSx entry 
; Go exec if resident 



Execute a system overlay 



EXOVR PUSH 
PUSH 
AND 
BIT 
JR 
ADD 

EX0VR1 

LD 

LD 

LD 

SBC 

LD 

LD 

CALL 

JR 

LD 

AND 

XOR 

LD 

JR 

LD 

ADD 

LD 

LD 

CALL 

EX0VR2 

LD 
CALL 

EXERR POP 
POP 

EX0VR3 

POP 
RET 
JR 



DE 

BC 

OFH 

3, A 

Z, EXOVR1 

A,18H 

LD 

B,A 



; Get right nybble 
/Check for SYSO-7 
; w/o changing C fig 
;Adjust for Sys8-15 
(SFCB$+7) ,A 

;Set DEC for directory 



A,20H ;Set bit 5 of FCB+1 

(SFCB$+1) ,A 
HL,HL ; Carry is clear here 

(SFCB$+1 0) , HL ; Zero NRN 



C,H 

@DIRRD 

NZ, EXERR 

A, (HL) 

5 OH 

5 OH 

A, 7 

NZ, EXERR 

A,L 

A, 22 

L,A 

DE,SFCB$+14 ; Extent field in FCB 

; Stuff 1st two extents 

;P/u ISAM # or zero 



; Init for drive 

; Read dir entry 

; Go if error 

;Was overlay purged? 

; or is it non— system? 

; Init "deleted error 



;Point to 1st extent 



PAT1 

LD B, 

E,SFCB$&OFFH 

LOADER 

BC 

DE 

LD 

HL 

Z 

SYS ERR 



; Read system overlay 



(TRANSFR+1) ,HL 



; Stuff overlay entry pt 



; Go if I/O error on read 



Routine to calculate first two extents of SYS file 



PAT1 


CALL 


PAT1A 




AND 


1FH 




INC 


A 




LD 


(DE) , A 




INC 


DE 




XOR 


A 




LD 


(DE) , A 




INC 


DE 


PAT1A 


CALL 


PAT IB 


PAT IB 


LD 


A, (HL) 




LD 


(DE) , A 




INC 


HL 




INC 


DE 




RET 





;Move first extent 

; Comput # of granules 

;And store in FCB 



;Move second extent 



System error disolay routine 

The NOP is provided so an intercept routine vector 
may be patched in during program development 



SVCERR 

NOP 

SYS ERR 

LD 

CALL 

LD 

CALL 

LD 

@ABORT 

@EXIT LD 
RST 



LD 



A, 43 



AND 3FH 

HL, ERRNUM 

@HEX8 

HL, SYSERR$ 

@LOGOT 

SP, STACK$ 

LD HL, -1 

A, 93H 

28H 



; SVC error 

; Strip excess bits 
;Pack error number 
; into message 

;Log the error £ ABORT 
; Reset the Stack Pointer 

;Exit to DOS 



POPERR 
QERROR 



LD 
RST 



POP HL 
PUSH AF 
A, 96H 
28H 



;Pop extended error 
; Save the error code 
; Display the error number 



SYSERR$ 
ERRNUM 



DEFM 
DEFB 



'Error ' 
'xxH' ,CR 



Routine to RUN a program 



@RUN 



PUSH 


HL 


LD 


HL, SFLAG$ 


SET 


2, (HL) 


CALL 


@LOAD 


EX 


(SP) , HL 



; Save register pair 

; Turn on RUN flag bit 
; Load the program module 

; Put trans f addr on the stk 



Note: The error code is set to NOT abort. Errt>s 
will be passed back to the calling module after 
@ERROR. Note that HL will contain the error # 



JR NZ, POPERR 

Place the INBUF$ pointer in regiater pair BC 



LD BC,INBUF$ ;Reflect buffer pointer 

Get TRAADR then test if we need to go to DEBUG 



Go to the program if 
it 's EXEC only accesi 
else test if DEBUG 
is on & go to it 
else go to program 



This routine LOADs a Load Module Format file 



LD 


A, (SFLAG$) 




BIT 


1,A 


; 


RET 


NZ 


r 


BIT 


7, A 


r 


JP 


NZ, @RST30 


F 


RET 




r 



@LOAD LD 
LD 
SET 
LD 
CALL 
PUSH 
CALL 
POP 
RET 
LD 
LD 
OR 
CP 
RET 
ADD 
RET 



B,0 

HL, SFLAG$ 

0, (HL) 

HL, SBUFF$ 

@OPEN 

DE 

Z, LOADER 

DE 

Z 

L,A 

H, 

OCOH 

0D8H 

NZ 

A, 7 



;LRL=256 

;Don't set "file open" 
; Set buffer to system 
; Open the file 
; Save FCB pointer 
;Load if no OPEN error 
; Restore FCB pointer 
;Back if no error 
;Xfer the error code 

; Set RETurn S abbrev 

; Change "file not in dir 

; to "Program not found" 



; System Command File Loader 

r 

LOADER LD A, B ; Set overlay # (0 on non- 

LD (LDR14+1) ,A ; SYStem file) 

PUSH DE ;Save IX S Xfer FCB to IX 

EX (SP) , IX 

LD DE,SBUFF$+255 ; Init to end of buffer 

CALL LDR01 ; Do the load 

POP IX ; Recover IX 

RET 

r 

; Routine to ignore the LMF record or skip some sections 



LDR05 CALL LDR15 

LD B,A 

LDR06 CALL LDR15 

DJNZ LDR06 



; Get length of "Comment " 
; Init B as a counter 
;READ & IGNORE this many 
; bytes, then fall through 



Routine to parse LMF record types 



LDR01 CALL LDR15 

LDR02 CP 1 

JR Z, LDR08 

CP 2 

LDR03 JR Z,LDR07 

CP 4 

JR Z,LDR12 



; Get Record Type 
; Start of block? 

; Start of TRAADR? 

;End of LIB member? 



LDR04 



CP 


8 


JR 


Z,LDR13 


CP 


10 


JR 


Z, LDR04 


CP 


2 OH 


JR 


C, LDR05 


LD 


A,22H 


OR 


A 


RET 





; Begin ISAM table entry? 

;End of ISAM map? 

; Ignore all other controls 

; Load file format error 
; Set NZ condition 



Grab transfer address 



LDR07 CALL LDR15 
CALL GETADR 
RET 



Grab load block 



LDR08 



LDR09 



LDR12 



CALL 


LDR15 


LD 


B,A 


CALL 


GETADR 


RET 


NZ 


DEC 


B 


DEC 


B 


CALL 


LDR15 


LD 


(HL),A 


INC 


HL 


DJNZ 


LDR09 


JR 


LDR01 


POP 


HL 


RET 





; Bypass 2nd X'02' 

;P/u transfer address 
;Ret Z or NZ 



;P/u block length 

;P/u Load address 
; Adjust length for addr 
;P/u block byte 

; Loop until block end 



Routine to check ISAM table match 

; Get record length 



LDR13 CALL LDR15 

LD B,A 

CALL LDR15 

DEC B 

LDR14 CP 

JR NZ,LDR06 

CALL GETADR 

PUSH HL 

CALL Z, GETADR 

JR NZ, LODERR 

CALL LDR15 

LD E,A 

PUSH BC 

LD B,H 

LD C,L 

PUSH DE 

PUSH IX 

POP DE 

CALL @POSN 

POP DE 

POP BC 

JR NZ, LODERR 



;Get ISAM number 
; & decrement counter 
; Either ISAM# or 
; Go if not a match 

; else get the TRAADR 
; & save it 
; Get the NRN for member 

; Get the sector offset 
; Update pointer offset 

;Xfer NRN position needed 

; Save buffer ptr offset 

;P/u FCB in DE 

; Position to ISAM record 

; Recover buf ptr offset 



CALL LDR17 ; Read the sector 

JR LDR02 ; Now go read the member 

Routine to get the next file byte 



; Bump buffer pointer 

; Read sector if needed 
;P/u byte from buffer 

; Save registers 



; Read next record 



; Bypass if no error 
; Pop return address 
; Return NZ cond 



Routine to get an address field 



LDR15 


INC 


E 




JR 


Z, LDR1 7 


LDR16 


LD 
RET 


A, (DE) 


LDR17 


PUSH 


HL 




PUSH 


DE 




PUSH 


BC 




CALL 


NXTSECT 




POP 


BC 




POP 


DE 




POP 


HL 




JR 


Z, LDR1 6 


LODERR 


POP BC 




RET 





GETADR 



I 


CALL 


LD 


L,A 


CALL 


LDR15 


LD 


H,A 


CP 


A 


RET 





LDR15 ;Get low order byte 

; Get high order byte 
;Set Z fl 



BOOT code brings back the ROM 



M0D3E 


(UF 


EQU 4300H 


@IPL 


LD 


HL, BOOTCOD 




LD 


DE, MOD3BUF 




PUSH 


DE 




LD 


BC, BOOTLEN 




LDIR 






RET 





; Code to toggle in ROM 
; Buffer used by ROM 
;This is return address 
; Length of BOOT sequence 
; Transfer boot code 
; and Return to it 



End of loader module 



END 



; RSLOGOB/ASM 



3-D RS LOGO used on 6.2.0 - 1/20/84 



OFF 










ORG 


OF 9 5 7H 








DEFB 


130,175 








DEFS 


27%191 








DEFB 


159,161, 


132, 


144, 


128, 'tm' 


ORG 


0F9A9H 








DEFB 


139 








DEFS 


7%191 








DEFS 


11%143 








DEFB 


175 








DEFS 


6% 191 








DEFB 


135,152, 


161, 


134, 


152 


DEFB 


161,132 








ORG 


0F9FAH 








DEFB 


130,175 








DEFS 


5%191 








DEFS 


5%188 








DEFB 


128,168 








DEFS 


4%188 








DEFB 


190 








DEFS 


4%191 








DEFB 


159,161, 


134 






DEFB 


152,161, 


134, 


152, 


129 


ORG 


0FA4CH 








DEFB 


139 








DEFS 


9%191 








DEFB 


128,170 








DEFS 


8%191 








DEFB 


135,152, 


161 






DEFB 


134,152, 


161, 


134 




ORG 


0FA9DH 








DEFB 


130,175 








DEFS 


7%191 








DEFB 


128,170 








DEFS 


6% 191 








DEFB 


159,161, 


134, 


152, 


161,134,152 


DEFB 


129 








ORG 


OFAEFH 








DEFB 


139 








DEFS 


6%191 








DEFB 


176,186 








DEFS 


5%191 








DEFB 


135,152, 


161, 


134, 


152,161,134 


ORG 


0FB40H 








DEFB 


130,175 








DEFS 


9%191 








DEFB 


159,161, 


134, 


152, 


161,134,152 


DEFB 


129 








ORG 


0FB92H 








DEFB 


171 








DEFS 


7%143 








DEFB 


151,168, 


129 






DEFB 


150,168, 


129, 


150 




ORG 


0FBE2H 








DEFB 


186 








DEFS 


7%188 









DEFB 
ORG 
DEFB 
DEFS 
DEFB 
ORG 
DEFB 
DEFS 
DEFB 
DEFB 
ORG 
DEFB 
DEFB 
DEFS 
DEFB 
DEFB 
ORG 
DEFB 
DEFS 
DEFB 
DEFS 
DEFB 
DEFB 
ORG 
DEFB 
DEFS 
DEFB 
DEFB 
DEFS 
DEFB 
DEFS 
DEFB 
DEFB 
ORG 
DEFB 
DEFS 
DEFB 
DEFS 
DEFB 
DEFS 
DEFB 
ORG 
DEFB 
DEFB 
DEFS 
DEFB 
*LIST ON 
END 



181,138, 144,165, 138, 144,165 

0FC30H 

160,190 

9%191 

189,146,164,137,146,164,137,144 

0FC7FH 

184,191,191,135 

7%131 

139,191,191 

180, 137, 146,164, 137, 146,164 

OFCCDH 

160,190,191,191,129 

160,190 

5%191 

189,176,178, 191,191,189, 146,164, 137 

146, 164, 137, 144 

0FD1CH 

184 

4%191 

128,170 

13%191 

180,137,146,164 

137,146,164 

0FD6AH 

160,190 

5%191 

180,128 

139 

5%143 

135,128,184 

5%191 

189,146 

164, 137, 146,164, 137, 144 

0FDB9H 

184 

8%191 

189 

7%188 

190 

8%191 

180, 137, 146,164, 137, 146, 132 

0FE07H 

160 

190 

27%191 

189,146,132,129 



; LOWCORE/ASM - Low Memory Assignments 

AD ISP ' <LOWCORE - LS-DOS 6 . 2> ' 
@M0D2 EQU 00 ; Set M0D2 false 

@M0D4 EQU -1 ;Set M0D4 true 

r 

; LDOS 6.x Low Core RAM storage assignments 

; Copyright (C) 1982 by Logical Systems, Inc. 

r 

: Define switches for international or domestic 



@ GERMAN 


EQU 


QFRENCH 


EQU 


IF 


@ GERMAN . AND . @ FRENCH 


ADISP 


'Can't do both French and German 


END IF 




IF 


@ GERMAN. OR . @ FRENCH 


@INTL EQU 


-1 


@USA EQU 


00 


@HZ50 EQU 


-1 


ELSE 




@INTL EQU 


00 


@USA EQU 


-1 


@HZ50 EQU 


00 


END IF 





START$ EQU 

r 

; These EQUs are detailed in SYSRES 



FDD INT $ 


EQU 


OEH 






PDRV$ EQU 


1BH 








TIMSL$ 


EQU 


2BH 






TIMER$ 


EQU 


2CH 






TIME$ EQU 


TIMER$+1 






DATE$ EQU 


33H 








INTVC$ 


EQU 


3EH 






FLGTAB$ 


EQU 


6AH 






CFLAG$ 


EQU 


FLGTAB$+ 


'C 


-'A' 


DFLAG$ 


EQU 


FLGTAB$+ 


•D ' 


-'A' 


IFLAG$ 


EQU 


FLGTAB$+ 


'I' 


-'A' 


KFLAG$ 


EQU 


FLGTAB$+ 


'K' 


-'A' 


MODOUT$ 


EQU 


FLGTAB$+ 


•M' 


-'A' 


NFLAG$ 


EQU 


FLGTAB$+ 


'N' 


-'A' 


OPREG$ 


EQU 


FLGTAB$+ 


'O' 


-'A' 


RFLAG$ 


EQU 


FLGTAB$+ 


'R' 


-'A' 


SFLAG$ 


EQU 


FLGTAB$+ 


'S' 


-'A' 


VFLAG$ 


EQU 


FLGTAB$+ 


'V 


-'A' 


QKITSK 


EQU 


FLGTAB$+31 





ORG 200H+START$ 

r 

; Page 2 - Device Control Blocks 

r 

BUR$ DB OOH ;Bank use RAM 

BAR$ DB OFEH ; Bank available RAM 

LBANK$ DB 20 ;Dir cyl & logical bank 

JCLCB$ DB 1,0,0 ;Mini-DCB for JCL gets 



DVRHI$ 


DW DVREND$ 




; Start of low I/O z 


KIDCB$ 


DB 5 




; Permit CTL, GET 


DW 


KIDVR 






DB 


0,0,0, 'KI' 






DODCB$ 


DB 7 




; Permit CTL, PUT, GET 


DW 


DODVR 






DB 


0,0, 0, 'DO' 






PRDCB$ 


DB 6 




; Permit CTL, PUT 


DW 


PRDVR 






DB 


0,0, 0, 'PR' 






SIDCB$ 


DB 15H 




; Routed to *KI 


DW 


KIDCB$ 






DB 


ODH, 0, 0, 'SI' 






SODCB$ 


DB 17 H 




; Routed to *D0 


DW 


DODCB$ 






DB 


OFH, 0, 0, 'SO' 






JLDCB$ 


DB OAH, 0, 0, 


OAH, 


, 0, 0, 'JL' 


S1DCB$ 


EQU $ 




; 1st spare DCB 


DCBKL$ 


EQU JLDCB$&0FFH+1 ;Non-killable DCB ' s 



; Now load the BOOT loader - part in this page 

r 

*GET 'BOOT4-.1' 

f 

ADISP '<SYSinfo Section>' 
■? 



Page 3 - System stack and Sysinfo section 



STACK$ EQU $-128 

PAUSE@ EQU STACK$+2 



; Start stack 128 bytes low 
; Where pause will be 



; Page 4 - Miscellaneous stuff 

r 

DB 62H ; Operating system version 

ZERO$ DB 0C9H ; Con fig on BOOT, yes = 

MAXDAY$ EQU $-1 ; Max days per month 

DB 31,28, 31, 30, 31, 30, 31,31, 30, 31, 30, 31 

HIGH$ DS 2 ; Highest available memory 

PAKNAM$ DB ' LS-D0S62Level-xx ' 

r 

; Command line input buffer & AUTO buffer area 

; Input buffer - 80 bytes 



INPBUF$ 
DS 



DB ODH 

79%0 



; System drive code tables 

r 

DCT$ EQU $ ; System drive code tables 

JP FDCDVR ; Floppy drive 

DB 44H,0ClH,0,27H,17,3-l<5+6-l,X 

JP FDCDVR ; Floppy drive 1 

DB 44H, 42H, -1 , 27H, 17 , 3-l<5+6-l, 20 
RET ; Disable drive #2 

DW FDCDVR 

DB 44H, 44H, -1 , 27H, 17 , 3-l<5+6-l , 20 
RET ; Disable drive #3 



DW FDCDVR 

DB 44H, 48H, -1, 27H, 17, 3-l<5+6-l, 20 

RET / Logical drive 4 

DW FDCRET 

DB 0,0,0,27H, 0,0,0 

RET / Logical drive 5 

DW FDCRET 

DB 0, 0,0, 27H, 0,0,0 

RET /Logical drive 6 

DW FDCRET 

DB 0,0,0,27H, 0,0,0 

RET /Logical drive 7 

DW FDCRET 

DB 0,0,0,27H, 0,0,0 



SYSINFO - miscellaneous information 

-1 



DSKTYP$ 


DB 


DB 





DTPMT$ 


DB 


TMPMT$ 


DB 


RSTOR$ 


DB 


DS 


2 


DAYTBL$ 


DB 


MONTBL$ 


DB 



;0 = DATA, <> = SYS 
/Reserved 
/Date prompt at boot 

-1 ; Time prompt at boot 

/Suppress restores on BOOT 

/Reserved 
' SunMonTueWedThuFriSat ' 
' JanFebMarAprMayJunJulAugSepOctNovDec ' 



End of low core assignments 



/I/O driver, KEY IN, etc. 
/16-bit MULT & DIV 
/Hardware task stuff 
/Pointer for @GTMOD 

/Keyboard driver 



*GET 'IODVR:!' 
*GET 'MULDIV:1' 
*GET 'CLOCKS: 1' 
@$SYS EQU $ 

IF @USA 

*GET 'KIDVR:!' 

END IF 

IF @ GERMAN 

FREN EQU 00 
GERM EQU -1 

■? 

END IF 

IF QFRENCH 

FREN EQU -1 
GERM EQU 00 

•7 
/ 

END IF 
*GET 'DODVR-.l' /Video driver 

*GET 'PRDVR:1' /Printer driver & filter 

*GET ' FDCDVR: 1 ' /Floppy disk driver 

DVREND$ EQU $ /Start of low I/O area, to 12FFH 

IF $.GT.1200H+START$ 

ADISP 'Drivers overflow available RAM' 

ENDIF 

ORG 1300H+START$ 
QBYTEIO EQU $ 

END 



;MULDIV/ASM - 16 x 8 multiplication & division 
ADISP ' <16 X 8 multiply/divide>' 
? 

*MOD 

Multiply HL by A - SVC 91 

HL => multiplicand 

A => multiplier 

HLA <= 24-bit result 

DE destroyed 



; Save reg BC 
; Multiplicand to DE 
; & multiplier to C 
; Init value to zero 
; in regs HLA 
; Init for 8— bit mult 
; Shi ft to next place 
;Use A for bits 16-23 
;Multiply this bit? 

; Go if not 
/Else add multiplicand 
; & any overflow to 16 
; Loop for 8 bits 
; Tempy save 
;Xfer low-order to A 
;Xfer mid-order to L 
;Xfer hi— order to H 



@MUL1 


6 


PUSH BC 




EX 


DE,HL 




LD 


C,A 




LD 


HL, 




LD 


A,L 




LD 


B,8 


$E1 


ADD 
RLA 


HL,HL 




RLC 


C 




JR. 


NC, $E2 




ADD 


HL,DE 




ADC 


A,0 


$E2 


DJNZ 


$E1 




LD 


C,A 




LD 


A,L 




LD 


L,H 




LD 


H,C 




POP 


BC 




RET 




/ 
/ 


Divide HL by A 


/ 


HL => dividend 


/ 


A => 


divisor 


/ 


HL <-- 


= resulting 


/ 


A <= 


remainder 


r 

■ *MOD 






@DIV1 6 


PUSH DE 




LD 


D,A 




LD 


E,16 




XOR 


A 


$F1 


ADD 
RLA 


HL,HL 




JR 


C,$F2 




CP 


D 




JR 


C,$F3 


$F2 


SUB 


D 




INC 


L 


$F3 


DEC 


E 




JR 


NZ, $F1 




POP 


DE 




RET 





- SVC 94 



quotient 



; Save this reg pair 
Xfer divisor to D 
Init for 16 bits 

Rotate dividend 

& subtract divisor if 
carry into bit 16 
Compare divisor 
Go if no subtract 

else subtract divisor 
Set lo-order 
; Count down one bit 

; Loop for 16 bits 



QHEXDEC - SVC 97 

Routine to convert 16-bit hexadecimal to decimal 

HL => value 



DE => buffer pointer of 5— character buffer 
HL <= destroyed (always set to zero) 
DE <= buffer + 5 
BC <= destroyed 

Z <= set 

; *MOD 

QHEXDEC LD B, 5 ; Length max 

LD A, ' ' ;Load blank 

HEXDEC1 LD (DE) , A ; To string 

INC DE ;Bump pointer 

DJNZ HEXDEC1 ; Go for length 

PUSH DE ;Save end+1 

DEC DE ; Adjust back 

HEXDEC2 LD A, 10 ; Base to convert to 

CALL QDIV16 ; HL+A = HL/A 

ADD A, '0' ;Add ASCII to result 

LD (DE) , A ; to user string 

DEC DE ;Move back 

r 

; Check if done 

r 

LD A, H ; Get subtotal remainder 

OR L ;Done? 

JR. NZ,HEXDEC2 ; Go 'til completed 

POP DE ; Restore end+1 

RET ; Return Z set 



END 



; P ARAM/ ASM - LS-DOS 6.2 



Parse a field 
(HL) => command line 
(DE) => FCB area 
(HL) <= 1st byte past non-<A-Z, a-z, 

except 13, 3, "(" 
Z <= found valid field 
NZ <= found invalid field 



0-9> 



SPARSER 
@PAR1 LD 
LD 



PAR2 



PAR3 



PAR 4 



PAR5 



INC 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

INC 

CALL 

JR 

CP 

JR 

CP 

JR 

RES 

DEC 

JR 

LD 

XOR 

LD 

INC 

JR 

INC 

JR 

LD 

LD 

LD 



LD B, 8 

A,B 

(PAR6+1) ,A 
B 

A, (HL) 
3 

Z, PAR5 
CR 
Z, PAR5 

' (' 

Z, PAR5 
HL 

TST09AZ 
NC, PAR3 

•a ' 
C, PARS 

'z'+l 
NC, PAR5 
5, A 
B 
Z, PAR4 

(DE) , A 
A 

(PAR6+1) ,A 
DE 
PAR2 
B 

PAR2 
C,A 
A, 3 

(DE) , A 



LD 
CP 
JR 
PAR5A CP 
INC 
JR 
DEC 



Skip over spaces 
A,C 



NZ, PAR 6 
(HL) 
HL 

Z, PAR5A 
HL 



; Set length 
; Stuff length for test 

;ETX 

; <ENTER> ? 

; Begin of parm? 

; Bump pointer to next 

/Test if 0-9, A-Z 

; Go if one of the above 

; Check on lower case 

; Jump on non— alpha 

; Is it <a-z> 

; Jump on non— alpha 

; Convert lower to upper 

; Count down 

;Xfer the char 
; Show at least 1 valid 
; Char was detected 
; Bump FCB pointer 
; Loop 
; Here on max chars ck ' d 

; Save separator 
; Stuff ETX 



;Was separator a space? 

; Don't skip if not 
;Next char a space? 

; Loop until not 
; Back up to last non-space 



PAR 6 



Return status of field validity 



LD 


A,0 


OR 


A 


LD 


A,C 



; Set Z flag if at least 
; 1 valid char detected 
; Recover separator char 



RET 

Test if 0-9 of A-Z 

TST09AZ CP '0' /Special character? 

RET C ;Go if not in range 

CP '9'+l ;Jump on digit 0-9 

JR C,EXITC ;Go if 0-9 & make NC 

CP 'A' ; Jump on special char 

RET C ;Go it 3B-40 

CP ' Z ' +1 ; Jump on A-Z 

EXITC CCF ; Switch flag of result 
RET 

r 

; Find parameter in table 

; (HL) => pointer to line 

; (DE) => pointer to buffer area 

; (BC) => pointer to parameter table 

; (BC) <= pointer to possible response byte 

; (DE) <= returns parameter vector address 

; Z <= set if found 

NZ <= if NOT FOUND in table 



@FNDPRM 


PUSH HL 


LD 


H,B 


LD 


L,C 


LD 


A, (HL) 


RLCA 




PUSH 


AF 


JR 


NC, FND1 


INC 


HL 


FND1 POP 


AF 


PUSH 


AF 


LD 


A, 5 


LD 


BC,2\ (1<8) 


JR 


NC, FND1A 


LD 


A, (HL) 


AND 


OFH 


DEC 


A 


INC 


B 


INC 


HL 


FND1A LD 


(FND3A+1) , 


ADD 


A,B 


LD 


(FND5A+1) , 


ADD 


A,C 


LD 


(FND2+1) , A 


LD 


A, (DE) 


CP 


(HL) 


JR 


Z, FND3 


FND2 LD 


BC,8 


ADD 


HL,BC 


LD 


A, (HL) 


OR 


A 


JR 


NZ, FND1 


POP 


HL 


POP 


HL 


INC 


A 



;Xfer table addr 

;P/u 1st byte of table 
; & test for enhanced 
; table format 

; Bump past indicator 
;01d or enhanced format? 

; Init for old lengths 

; Branch if old format 

; else get parm length 
; Strip flags 
; Adjust for length-1 
; Update offset to address 
;Bump past TYPE byte 
; Stuff the lengths 



;P/u command line byte 
; Match 1st char of table? 

; Jump if 1st char matches 
; else bypass that entry 

; Test for table end 

; Loop if more 
; Clean flag from stack 
; Recover saved reg & 
; set NZ for not found 



FND3 



FND3A 



FND4 



FND5 
FND5A 



FND6 
FND7 

FND8 



RET 

POP 

PUSH 

JR 

DEC 

BIT 

INC 

JR 

INC 

LD 

DEC 

CALL 

JR 

LD 

PUSH 

PUSH 

LD 

OR 

JR 

INC 

INC 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

DJNZ 

POP 

POP 

LD 

ADD 

LD 

LD 

DEC 

LD 

INC 

LD 

POP 

JR 

LD 

POP 

XOR 

RET 

CALL 

JR 

LD 

CP 

JR 

POP 

POP 

JR 



AF 

AF 

NC, FND3A 

HL 

4, (HL) 

HL 

Z, FND3A 

DE 

A, (DE) 

DE 

TST09AZ 

C, FND5A 

B,5 

HL 

DE 

A,B 

A 

Z, FND5 

DE 

HL 

A, (DE) 
3 

Z,FND1 
CR 
Z,FND1 

(HL) 

NZ,FND6 
FND4 
DE 
HL 

BC, 6 
HL,BC 
C,L 
B,H 
BC 

E, (HL) 
HL 

D, (HL) 
AF 
C,$+4 

B, SBUFF$>8 
HL 

A 

TST09AZ 
NC, FND8 
A, (HL) 

f f 

Z, FND5 
DE 
HL 
FND2 



; Ck old or new table 

; Go if old format table 
;Ck if type byte permits 

; single char abbrev 

; Go on no abbrev 
; Make sure the next char 

; is not in the range 
<0-9,A-Z> before 

; assuming abbrev 

; Go on 1-char abbrevs 
; 5 more chars to natch 



; Don ' t if trailing length 
; is zero 



;ETX? 

; Jump on <ENTER> 

;Match? 

; Jump if not 
; else loop 
;Parm matched 
; Recover begin of parm 
; Point to address field 

; Save the response-byte 
; pointer in BC 

;P/u parm table address 



If not enhanced, change 
pointer to bucket 
so we don't alter user 
Recover line position 
; Show found 

;Ck if 0-9, A-Z 
; Go if in the range of above 
; Loop if table has 
; trailing spaces 



PARAM routine 

(HL) => param line 
(DE) => parm table 



r 


(DE) 


<= return 


f 


C 


<= # of pi 


r 


Z 


= Okay 


f 


NZ 


= Parm Er. 


r 

PARAMO 


INC HL 


PARAM 


• LD 


A, (HL) 




CP 


CR 




RET 


Z 




CP 


f t 




JR 


Z, PARAMO 




CP 


' (' 




JR 


NZ, PARAM5 




LD 


A, (DE) 




RLCA 






JR 


NC, PARAMl 




PUSH 


DE 




INC 


DE 




PUSH 


HL 


f 

$?1 


LD 


A, (DE) 




AND 


OFH 




JR 


Z, $?2 




LD 


L,A 




LD 


H,0 




INC 


L 




ADD 


HL,DE 




LD 


(HL) , 




INC 


HL 




INC 


HL 




INC 


HL 




EX 


DE,HL 




JR 


$?1 


r 

$?2 


POP 


HL 




POP 


DE 


PARAM1 


PUSH DE 




LD 


B,15 




LD 


DE, SBUFF$ 




INC 


HL 




CALL 


@PAR1 




DEC 


HL 




POP 


DE 




JR 


NZ, ERROUT 




CP 


CR 




JR 


NZ, $+3 




INC 


HL 




PUSH 


DE 




LD 


B,D 




LD 


C,E 




LD 


DE, SBUFF$ 




CALL 


QFNDPRM 




PUSH 


BC 




JR 


Z, PARAM3 



; Bump the pointer 
; and P/u char 

; Return on <ENTER> 

; Loop on space 

; Jump if not left parenthesis 
; Check if enhanced table 



; Save pointer to start 
; Point to 1st TYPE byte 
; Save this position 

;P/u TYPE byte 

; Exit on end of table 
; Point to response byte 



; Zero the response 
;Bump to the next TYPE 



; Table pointer back to DE 

; Loop thru all response bytes 

; Recover reg 

; & start of parm table 

;Maximum 15— character field 

; Point to buffer region 

; Bypass the ' ( ' 

; Get the field 

; Back up to separator 

; Return if bad field 
; If separator was a CR, 

; we need to counteract 
; the DEC HL above 

; Table pointer to BC 

;Parm in table? 

; Save response pointer 
; Jump if found in table 



Parameter not in table - NZ condition 



PARAM2 POP DE ; Pop response pointer 

POP DE ;Pop parm table pointer 

ERROUT LD A, 44 ; Set up PARM ERROR 

RET 

r 

; Parameter found In table - parse the value 

r 

PARAM3 LD A, (HL) ; Test for assignment 

CP 

JR Z, ASSIGN ; Jump If parm=value 

LD BC, -1 ; else set symbol TRUE 

PARMSW EX (SP),HL ; Get response byte 

SET 6, (HL) ;Turn on FLAG-SWITCH 

r 

; Valid parm argument parsed Into reg BC 



PARAM4 



PARAM5 



I 


EX DE, HL 


LD 


(HL) , C 


INC 


HL 


LD 


(HL) , B 


POP 


HL 


POP 


DE 


LD 


A, (HL) 


CP 


f f 
/ 


JR 


Z, PARAM1 


CP 


CR 


JR 


Z, PARAM5 


CP 


') ' 


JR 


NZ, ERROUT 


INC 


HL 




XOR A 



; Address pointer to HL 
; Stuff low— order value 

; Stuff high-order value 
; Recover parm line ptr 
; Recover parm table ptr 

; Comma separator? 



; Closing parenthesis? 
;No, leave with ERROR 
; Bump line pointer 

; Show all Okay 



RET 



Parameter assignment statement 



ASSIGN 


INC HL 




LD 


A, (HL) 




CP 


f ft f 


/ 


JR 


Z, STRING 




CP 


'A' 


/ 


JR 


C, ASS3 




RES 


5, A 


r 


CP 


'X' 


f 


JR 


Z,ASS1 




CALL 


ONOFF 


; 


JR 


Z, PARMSW 


r 


JR 


PARAM2 




ASS1 INC 


HL 




CALL 


HEXVAL 




JR 


NZ, PARAM2 


r 


JR 


ASS3A 


r 



; Advance token past '=' 

Double quote string? 

Ck on digit or 

; special character 
Strip If lower case 
Hexadecimal ? 

Ck on Y, N, ON, OFF 
;Set FLAG-SWITCH If Okay 
; else error exit 

;Ck on hex format 
; Error If bad format 

else bypass & set resp 



Which Is the parameter, numeric or flag? 



ASS 3 CP ' ' 

PUSH AF 
CALL QDECHEX 



;Parameter=number ? 
;CF = If number 

;Cvt # Q HL to bin In DE 



POP AF 

ASS3A EX (SP) , HL 

JR NC, ASS4 

SET 6, (HL) 

DB LD A 

ASS4 SET 7, (HL) 

JR PARAM4 



; Get response pointer 

; Show numeric if CF=0 

; otherwise show switch 

; Skip next instruction 

; Set Numeric Response bit 



Parameter string entry 



STRING 



STR1 





INC HL 


LD 


B,H 


LD 


C,L 


LD 


A, (HL) 


CP 


2 OH 


JR 


C, PARAM2 


INC 


HL 


CP 


r n r 


JR 


NZ, STR1 


PUSH 


HL 


SBC 


HL,BC 


LD 


A,L 


DEC 


A 


CP 


32 


JR 


C,$+3 


XOR 


A 


POP 


HL 


EX 


(SP) , HL 


OR 


2 OH 


LD 


(HL) ,A 


JR 


PARAM4 



; Bypass ' " ' 
; Save starting address 

;P/u a char 

;Exit on control char 

; Bump pointer 

; Closing double quote 

; Save current pointer 
; Calculate length of str 

; Adjust for INC HL 
;If len > 31, set to 



; Recover pointer 

; Get response byte 
;Set FLAG-STRING 



Check for YES, NO, ON, OFF switches 



ONOFF 


LD 


BC, 




SUB 


'Y' 




JR 


Z, ONOl 




ADD 


A, 'Y'-'N 




JR 


Z, 0N02 




DEC 


A 




RET 


NZ 




INC 


HL 




LD 


A, (HL) 




RES 


5, A 




CP 


, F , 




JR 


Z, 0N02 




CP 


'N' 




RET 


NZ 


0N01 


LD 


BC,-1 


0N02 


INC 


HL 




LD 


A, (HL) 




CP 


') ' 




RET 


Z 




CP 


CR 




RET 


Z 




CP 


f f 
/ 




RET 


z 



; Init to FALSE 
; Is it yes? 

; Jump on YES 
; Is it no? 

; Jump on NO 
;Is it 'O'n or 'O'ff? 
; Return if not on/off 
; Bump pointer to next 

; character & p/u 
; Set 1/c to Upper case 

; Jump on off 

; Return if neither 

; Init to true 

; Ignore the trailing part 

; of word until closing 
; ") " or comma separator 
; or CR 



JR 



0N02 



Process hexadecimal assignment 



HEXVAL 



HEX1 



HEX2 



HEX3 





LD B( 


LD 


A, (HL) 


CP 


'&'+! 


RET 


NZ 


INC 


HL 


LD 


A, (HL) 


SUB 


3 OH 


JR 


C, HEX2 


CP 


10 


JR 


C, HEX3 


RES 


5, A 


SUB 


7 


CP 


16 


JR 


C, HEX3 


LD 


A, (HL) 


CP 


'&'+! 


INC 


HL 


RET 


Z 


DEC 


HL 


XOR 


A 


RET 




PUSH 


BC 


EX 


(SP) , HL 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,HL 


LD 


B,H 


ADD 


A,L 


LD 


C,A 


POP 


HL 


JR 


HEX1 


END 





; Init value to zero 

;P/u a char 
;Must be single quote ("'") 
; Return if not 
; Bump past it 

;P/u possible hex digit 
; Begin conversion 

;Jump if < "0" 
;Ck for 0-9 

; Jump if digit is 0-9 
; Strip 1/c if present 
;else ck A-F 

; Jump if A-F 

; Test for closing quote 
; Compare to "'" 
; Bump pointer 
; Ret if closing quote 
; else backup, set OK, 
; then return 



; Exchange BC & HL 
; and save 
; Multiply by 16 



;Merge new digit 



; Recover pointer 
; Loop 



HL 



;PRDVR/ASM - LS-DOS 6.2 

ADISP ' <Printer Driver> ' 
■? 

; *MOD 

PRPORT EQU 0F8H 

r 

} PR driver entry point 

It passes X'OO'-X'FF' 
: Unless INTL version 



PRDVR JR 


PRBGN 


; Branch around linkage 


DW 


PREND 


; Last byte used 


DB 


3, '$PR' 




DW 


PRDCB$ 


; Pointer to its DCB 


DW 





; Reserved 



Driver code 



PRBGN JR 
JR 



Z,$02 
C,$01 



; Go if output 

; Go if input req 



Character CTL request 



$01 



LD 


A,C 


; If CTL 0, return 


OR 


A 


; status else 


JR 


Z,$04 


; treat as a GET 



Character GET request 



OR 

CPL 

RET 



OFFH 



;Set NZ flag 

; & A=0 to show 

: no char available 



Character PUT request 



$02 LD DE,2000 

$02A CALL $04 

JR Z, $03 



$03 



; Check status 2000 times 
;PR ready? 
; Go if so 



Ten second time-out delay loop 

; Printer was not ready 
; Delay for a bit 
;2000 times expired? 



;Nope, contiune check 
; Device not Available" 
; Set NZ condition 



PUSH 


BC 


LD 


BC,340 


CALL 


PAUSEQ 


POP 


BC 


DEC 


DE 


LD 


A,D 


OR 


E 


JR 


NZ, $02A 


LD 


A, 8 


OR 


A 


RET 




EQU 


$ 


IF 


@INTL 


LD 


A, (IFLAi 


BIT 


6, A 



; Special DMP PR? 



END IF 



LD 



A,C 





IF 


@INTL 




JR 


Z, PVAL3 




CP 


OCOH 




JR 


C, PVAL2 




SUB 


2 OH 




JR 


PVAL3 


PVAL2 


CP 


OAOH 




JR 


C, PVAL3 




ADD 


A, 4 OH 




END IF 




r 

PVAL3 


OUT 


(PRPORT) , A 


r 


IF 


QINTL 




LD 


A,C 




CP 


A 




END IF 





; Values CO-FF (-20H) 

; Go if less 
; Shift to European chars 

;AO-BF (+40H) 

; Go if less 
; Shi ft to graphics 



; Put out char 



; Restore original 
; Set Z flag 



RET 



$04 IN 


A, (P, 


AND 


OFOH 


CP 


3 OH 


RET 




PREND EQU 


$-1 


END 





; Scan PR status 
/Mask unused potions 
;PR ready? 
/Return with answer 



SOUND/ ASM - LS-DOS 6.2 

Contains IPL, PAUSE, SOUND, and DECHEX routines 
Will be loaded into lowcore area along with SYSRES 



*MOD 
SNDPORT 

ORG 
DW 



EQU 9 OH 

STACK$ 

00 



; Stack guard 



Pause routine 



@PAUSE 



CDLOOP 



7 


PUSH BC 


SRL 


B 


RR 


C 


LD 


A, (SFLAG$) 


BIT 


3, A 


CALL 


NZ, CDLOOP 


POP 


BC 


> 


DEC BC 


LD 


A,B 


OR 


C 


JR 


NZ, CDLOOP 


RET 





; Save the count 
;Adjust for WAIT states 

;If system (FAST) 
; then double it 
;Call if FAST 
; Restore the count 

; CountDown Loop 

; Loop until C=0 

; and B=0 

; Return (or do second loop) 



@SOUND SVC-104 - Operates sound generator 

B => sound function 

Bits 0-2 <0-7> = note # (0 highest) 

Bits 3-7 <0-31> = relative sound duration 

All registers are preserved except A 

Z flag set on exit 

To ensure sound quality, interrupts are disabled 



gSOUND 



PUSH 

LD 

AND 

RLCA 

LD 

LD 

LD 

LD 

ADD 

LD 

INC 

LD 

RRCA 

RRCA 

RRCA 

AND 

INC 

LD 

LD 

AND 

JR 

SLA 

SLA 



PUSH BC 

HL 

A,B 

7 

HL, SNDTAB 

C,A 

A,B 

B,0 

HL,BC 

C, (HL) 

HL 

L, (HL) 



1FH 

A 

H,A 

A, (SFLAG$) 

00001000B 

Z,$A1 

H 

L 



; Save registers 

P/u sound data 

strip bits 3-7 
Adjust for 2-byte fields 

in sound data table, 

use as LSB of ptr 
Pick up duration data 
Index into tone table 

to get note-on/off 

;P/u note on/off data 

;P/u note duration 
; Rotate sound duration 
; into bits 0-4 

; Strip off sound # 

; Adjust for offset 

; Set sound counter 

; If fast, double values 





SLA 


C 


$A1 


DI 




$A2 


PUSH 


HL 


$A3 


LD 


B,C 




LD 


A,l 




OUT 


(SNDPORT) 




DJNZ 


$ 




LD 


B,C 




INC 


A 




OUT 


(SNDPORT) 




DJNZ 


$ 




DEC 


L 




JR 


NZ, $A3 




POP 


HL 




DEC 


H 




JR 


NZ, $A2 




EI 






POP 


HL 




POP 


BC 




RET 





; Values * 2 

; Don ' t Interrupt timing 
; Save note duration 
;Play the tone 
; Hold output high 
,A ; for count of (B) 



,A 



; Hold output low 

;Bit is latch bit =>0 

; Countdown (B) 

; Decrement the duration 

; Get sound/note durations 
; Count down the sound 

; duration counter 
; Restore interrupts 

; Restore regs 



Note table 



SNDOFF 


EQU 180 


TONER EQU 


28 


SNDTAB 


DB 108-TONER 


DB 


-SNDOFF 


DB 


114-TONER 


DB 


2 52 -SNDOFF 


DB 


120-TONER 


DB 


248-SNDOFF 


DB 


12 6 -TONER 


DB 


244-SNDOFF 


DB 


135-TONER 


DB 


240-SNDOFF 


DB 


142-TONER 


DB 


236-SNDOFF 


DB 


149-TONER 


DB 


2 32 -SNDOFF 


DB 


156-TONER ;Noi 


DB 


228-SNDOFF 


SNDLEN 


EQU $-@SOUND 



; Sound duration offset 



;Note (highest) 



7 (lowest) 



Process decimal adjustment 



@DECHEX 


LD B( 


DEC1 LD 


A, (HL) 


SUB 


3 OH 


RET 


C 


CP 


10 


RET 


NC 


PUSH 


BC 


EX 


(SP) , HL 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,BC 


ADD 


HL,HL 



; Init value to zero 

;P/u a char 
; Convert to binary 
; Return if < "0" 
; Ck for bad decimal 
;Ret if not 0-9 
; Exchange BC & HL 

; & save HL on stack 
; Multiply by 10 



;Merge in new digit 

;New digit to C 

; & add it in 

; Current value to BC 

; Recover HL pointer 

; Loop 

Special Boot code to be moved to 4 30 OH by @IPL 

;Boot stub for @IPL 
to move to 4300H 



LD 


B,0 


LD 


C,A 


ADD 


HL,BC 


LD 


B,H 


LD 


C,L 


POP 


HL 


INC 


HL 


JR. 


DEC1 



BOOTCOD 


DI 


XOR 


A ; 1 


OUT 


(@OPREG) , A 


RST 





BOOTLEN 


EQU $-BOOTCOD 



END 



; SYSO/EQU - Equates from cross reference ofSysres 
ADISP ' <SYSO/EQU> ' 



$A1 EQU 


03B7H 




$A2 EQU 


03B8H 




$A3 EQU 


03B9H 




$CKEOF 


EQU 


147 OH 


@$SYS EQU 


08F0H 




@@1 DEFL 


OOOOH 




@@2 DEFL 


OOOOH 




@@3 DEFL 


OOOOH 




@@4 DEFL 


OOOOH 




QABORT 


EQU 


1B08H 


QADTSK 


EQU 


1CDAH 


@BANK EQU 


0877H 




@BKSP EQU 


1486H 




QBREAK 


EQU 


196FH 


@ BYTE 10 


EQU 


1300H 


@CHNIO 


EQU 


0689H 


QCKBRKC 


EQU 


0553H 


QCKDRV 


EQU 


1993H 


QCKEOF 


EQU 


158FH 


QCKTSK 


EQU 


1CF5H 


@CLOSE 


EQU 


1999H 


@CLS EQU 


0545H 




QCMNDI 


EQU 


197 EH 


@CMNDR 


EQU 


197BH 


@CTL EQU 


0623H 




QDATE EQU 


07A8H 




@DBGHK 


EQU 


199FH 


@DCINIT 


EQU 


19C0H 


@DCRES 


EQU 


19C4H 


QDCSTAT 


EQU 


19B5H 


QDCTBYT 


EQU 


1A2BH 


@ DEBUG 


EQU 


19A0H 


gDECHEX 


EQU 


03E1H 


QDIRCYL 


EQU 


18F7H 


QDIRRD 


EQU 


18BBH 


QDIRWR 


EQU 


1803H 


@DIV1 6 


EQU 


06E3H 


QDIV8 EQU 


1927H 




QDODIR 


EQU 


19AFH 


@DOKEY 


EQU 


19A9H 


@DSP EQU 


0642H 




QDSPLY 


EQU 


052DH 


@ERROR 


EQU 


1B0FH 


@EXIT EQU 


1B0BH 




QFEXT EQU 


1984H 




QFLAGS 


EQU 


19 6 AH 


@FNAME 


EQU 


199CH 


gFRENCH 


EQU 


OOOOH 


QFSPEC 


EQU 


1981H 


QGATRD 


EQU 


1874H 


QGATWR 


EQU 


1875H 


@ GERMAN 


EQU 


OOOOH 


@GET EQU 


0638H 




QGTDCB 


EQU 


1990H 



@GTDCT 
QGTMOD 
QHDFMT 
@HEX1 6 
QHEX8 EQU 
gHEXDEC 
@HIGH$ 
QHITRD 
QHITWR 
@HZ50 EQU 
@ICNFG 
@INIT EQU 
@INTL EQU 
@IPL EQU 
@JCL EQU 
@KBD EQU 
@KEY EQU 
@ KEY IN 
QKITSK 
QKLTSK 
@LOAD EQU 
@LOC EQU 
@LOF EQU 
QLOGER 
@LOGOT 
QM0D2 EQU 
@M0D4 EQU 
@MSG EQU 
@MUL1 6 
QMUL8 EQU 
@NMI EQU 
@OPEN EQU 
@ OP REG 
QPARAM 
QPAUSE 
QPEOF EQU 
@POSN EQU 
@PRINT 
@PRT EQU 
@PUT EQU 
QRAMDIR 
QRDHDR 
@RDSEC 
@RDSSC 
QRDTRK 
@READ EQU 
QREMOVE 
(3 RENAME 
@REW EQU 
QRMTSK 
QRPTSK 
QRREAD 
QRSLCT 
QRSTOO 
QRST08 
QRST10 
QRST18 



EQU 1A1EH 

EQU 1 9B2H 

EQU 1 9E4H 

EQU 7BDH 

07C2H 

EQU 06F6H 

EQU 1948H 

EQU 1897H 

EQU 1898H 

OOOOH 

EQU 0086H 

198DH 

OOOOH 

1BF2H 

063 OH 

0635H 

0628H 

EQU 0585H 

EQU 0089H 

EQU 1CD0H 

1B38H 

14B3H 

14DEH 

EQU 0503H 

EQU 0500H 

OOOOH 

OFFFFH 

0530H 

EQU 06C9H 

190 AH 

0066H 

198 AH 

EQU 0084H 

EQU 1987H 

EQU 0382H 

14A2H 

1434H 

EQU 0528H 

063DH 

0645H 

EQU 1 9ACH 

EQU 19D8H 

EQU 1 9F4H 

EQU 18D8H 

EQU 19E0H 

1513H 

EQU 19A6H 

EQU 1996H 

149BH 

EQU 1CD7H 

EQU 1CEBH 

EQU 1 4 73H 

EQU 19D4H 

EQU OOOOH 

EQU 0008H 

EQU 001 OH 

EQU 0018H 



QRST20 


EQU 


002 OH 


QRST28 


EQU 


0028H 


QRST30 


EQU 


0030H 


QRST38 


EQU 


0038H 


@RSTNMI 


EQU 


0FE9H 


@RSTOR 


EQU 


19C8H 


@RSTREG 


EQU 


0680H 


@RUN EQU 


1B1DH 




QRWRIT 


EQU 


13ADH 


QSEEK EQU 


19D0H 




QSEEKSC 


EQU 


1421H 


QSKIP EQU 


1430H 




@SLCT EQU 


19BCH 




@SOUND 


EQU 


0392H 


QSTEPI 


EQU 


19CCH 


QTIME EQU 


078DH 




@USA EQU 


OFFFFH 


QVDCTL 


EQU 


0B99H 


QVDCTL3 


EQU 


0D38H 


@VER EQU 


1560H 




QVRSEC 


EQU 


19DCH 


QWEOF EQU 


14ECH 




@ WHERE 


EQU 


1979H 


@WRITE 


EQU 


1531H 


QWRSEC 


EQU 


19E8H 


QWRSSC 


EQU 


19ECH 


QWRTRK 


EQU 


19F0H 


QVDCTL 


EQU 


0D42H 


ADDR_2_R0WC0L 


EQU 0DF1H 


AFLAG$ 


EQU 


006AH 


AUTO? EQU 


1FF1H 




BAR$ EQU 


0201H 




BOOTST$ 


EQU 


439DH 


BREAK? 


EQU 


1C60H 


BRKVEC$ 


EQU 


1C88H 


BUR$ EQU 


0200H 




CASHK$ 


EQU 


0A7BH 


CFCB$ EQU 


OOEOH 




CFGFCB$ 


EQU 


OOEOH 


CFLAG$ 


EQU 


006CH 


CKMODQ 


EQU 


1A7FH 


CKOPEN@ 


EQU 


1568H 


CONFIG$ 


EQU 


203FH 


CORE$ DEFL 


1CFFH 




CORE$ DEFL 


1BFFH 




CORE$ DEFL 


1948H 




CORE$ DEFL 


0300H 




CRTBGN$ 


EQU 


OF 80 OH 


CYL_GRN 


EQU 


16AEH 


D@FBYT8 


EQU 


1A26H 


DATE$ EQU 


0033H 




DAYTBL$ 


EQU 


04C7H 


DBGSV$ 


EQU 


OOAOH 


DCBKL$ 


EQU 


0031H 


DCT$ EQU 


047 OH 




DCTBYT8Q 


EQU 


1A29H 


DCTFLD@ 


EQU 


1A34H 



DFLAG$ 


EQU 


006DH 


DIRBUF$ 


EQU 


2300H 


DIS_DO_RAM 


' EQU 


084 6H 


DODATA$ 


EQU 


0B94H 


DODCB$ 


EQU 


021 OH 


DO_CONTROL 


EQU 


0C44H 


DO_DSPCHAR 


EQU 


0CB8H 


DO_INVERT_ 


DIS 


EQU 0C8CH 


DO_INVERT_ 


ENA 


EQU 0C89H 


DO_INVERT_ 


OFF 


EQU 0C9BH 


DO_MASK 


EQU 


OOOOH 


DO_RET 


EQU 


OBCBH 


DO_RETI 


EQU 


OBCCH 


DO_SCROLL 


EQU 


OCCEH 


DO_TABS 


EQU 


OBEAH 


DSKTYP$ 


EQU 


04C0H 


DTPMT$ 


EQU 


04C2H 


DVREND$ 


EQU 


0FF4H 


DVRHI$ 


EQU 


0206H 


EFLAG$ 


EQU 


006EH 


ENADIS_DO_ 


RAM 


EQU 081 7H 


EXTDBG$ 


EQU 


19A4H 


FDD I NT $ 


EQU 


OOOEH 


FEMSK$ 


EQU 


006FH 


FLGTAB$ 


EQU 


00 6 AH 


GET_@_ROWCOL 


EQU ODAEH 


HERTZ $ 


EQU 


0750H 


HIGH$ EQU 


04 0EH 




HKRES$ 


EQU 


1A6CH 


IFLAG$ 


EQU 


0072H 


INBUF$ 


EQU 


0420H 


INTIM$ 


EQU 


003CH 


INTMSK$ 


EQU 


003DH 


INTVC$ 


EQU 


003EH 


JCLCB$ 


EQU 


0203H 


JDCB$ EQU 


0024H 




JFCB$ EQU 


OOCOH 




JLDCB$ 


EQU 


02 3 OH 


JRET$ EQU 


0026H 




KCK@ EQU 


07D6H 




KFLAG$ 


EQU 


0074H 


KIDATA$ 


EQU 


08FCH 


KIDCB$ 


EQU 


0208H 


LBANK$ 


EQU 


0202H 


LDRV$ EQU 


0023H 




LFLAG$ 


EQU 


0075H 


LNKFCB@ 


EQU 


1566H 


LOW$ EQU 


001EH 




LSVC$ EQU 


OOODH 




MAXCOR$ 


EQU 


2400H 


MAXDAY$ 


EQU 


0401H 


MINCOR$ 


EQU 


3000H 


MODOUT$ 


EQU 


0076H 


MONTBL$ 


EQU 


04DCH 


NFLAG$ 


EQU 


0077H 


OPREG$ 


EQU 


0078H 


OPREG_SV_AREA 


EQU 086EH 



OPREG_SV_PTR 


EQU 0835H 


ORARET@ 


EQU 


14DCH 


OSRLS$ 


EQU 


003BH 


OSVER$ 


EQU 


0085H 


OVRLY$ 


EQU 


0069H 


PAKNAM$ 


EQU 


0410H 


PAUSE@ 


EQU 


0382H 


PCSAVE$ 


EQU 


07AFH 


PDRV$ EQU 


001BH 




PHIGH$ 


EQU 


001CH 


PRDCB$ 


EQU 


0218H 


PUTAQDE 


EQU 


ODCDH 


PUT_@ EQU 


ODCAH 




PUT_@_ROWCOL 


EQU 0DC6H 


RFLAG$ 


EQU 


007BH 


ROWCOL_ 2_ADDR 


EQU ODD OH 


RST38@ 


EQU 


1BFFH 


RSTOR$ 


EQU 


04C4H 


RWRITQ 


EQU 


13A2H 


S1DCB$ 


EQU 


0238H 


SBUFF$ 


EQU 


1D00H 


SETgEXEC 


EQU 


1A79H 


SET_SCROLL 


EQU 


0CF3H 


SFCB$ EQU 


008CH 




SFLAG$ 


EQU 


001 'CH 


SIDCB$ 


EQU 


022 OH 


SODCB$ 


EQU 


0228H 


SPACE 4$ 


EQU 


2142H 


STACK$ 


EQU 


0380H 


START$ 


EQU 


OOOOH 


SVCRET$ 


EQU 


OOOBH 


SVCTAB$ 


EQU 


0100H 


SYSERR$ 


EQU 


1B13H 


TCB$ EQU 


004EH 




TFLAG$ 


EQU 


001DH 


TIME$ EQU 


002DH 




TIMER$ 


EQU 


002CH 


TIMSL$ 


EQU 


002BH 


TIMTSK$ 


EQU 


0713H 


TMPMT$ 


EQU 


04C3H 


TRACE_INT 


EQU 


07B1H 


TYPHK$ 


EQU 


0A8FH 


TYPTSK$ 


EQU 


0B26H 


USTOR$ 


EQU 


0013H 


VFLAG$ 


EQU 


007FH 


WRINT$ 


EQU 


0080H 


ZERO$ EQU 


0401H 




ZEROAQ 


EQU 


13A0H 



;SYS1/ASM - LS-DOS 6.2 

ADISP '<SYS1 - LS-DOS 6.2> 



LD . 


A 


EQU 3AH 


r 

gSMALL 


EQU 


LIBA 


EQU 


8000H 


LIBB 


EQU 


OAOOOH 


LIBC 


EQU 


OCOOOH 


LF 


EQU 


10 


CR 


EQU 


13 


*LIST 


OFF 




*REF 


' SYSO/EQU :1 ' 


*LIST 


ON 




*GET 


'COPY COM :1 ' 



; LD A, (nnnn) 

; Switch for "SMALL" or 
"FULL" library 



;Set bit 5 
;Set bit 6 



;Get SYSO/EQU 



; Copyright message 



ORG 1E00H 



SYS1 JR 


SYS1BGN 


DW 


LIBTBL$ 


SYS1BGN 


AND 7 OH 


RET 


z 


CP 


10H 


JR 


Z,CMD 


CP 


4 OH 


JP 


Z, FSPEC 


CP 


5 OH 


JP 


Z, FEXT 


CP 


60H 


JP 


Z,PARAM 


CP 


7 OH 


RET 


Z 



; Hop around, pointer 
;LIBTBL pointer 
; Strip all but ept 

Back on zero entry 

Ck for @EXIT 

Ck for FSPEC 
Ck for FEXT 
Ck for PARAM 
; Ck for vacant entry 



Entry code for CMNDI (30) and CMNDR (20)SVCs 



LD 

PUSH 

LD 

LDIR 

EX 

LD 

POP 

CP 

JR 

CALL 

LD 

OR 

LD 

JP 

Entry 



DE, INBUF$ 

DE 

BC, 79 



;Move 79 characters 

; from (HL) to buffer 



; Terminate with ETX 



; Recover buffer start 
;Ck entry for CMNDI 

; Go on CMNDI 

; Clear the Break bit 



CMD30 CALL 
JR 



DE,HL 

OIL) , 3 
HL 
3 OH 

Z, CMD30 
QCKBRKC 
A, (CFLAG$) 
2 ;Set CMNDR bit 

(CFLAG$),A ;Put it back 
CMD20 ; & go to CMNDR 

for @EXIT & @ CMNDI 

;Reset Break, stack, etc. 



CLEANUP 
CMD3A 



CMD CALL CLEANUP 
JR CMDCONT 



;Reset Break, stack, etc. 



CLEANUP 
DI 
LD 
CALL 
POP 
LD 
LD 

PUSH 
PUSH 
LD 

RLCA 
LD 
JR 
XOR 

DBGOFF 

LD 

LD 

AND 

LD 

LD 

LD 

AND 

LD 

LD 

LD 



EQU $ 

HL, 

QBREAK 

HL 

SP, STACK$ 

BC, @EXIT 

BC 

HL 

A, (SFLAG$) 



; Stop for a moment 

; Reset vectored BREAK 

; to system 
;P/u local RETurn 
; Reset stack pointer 
; Establish Return addr 

; Put back local return 
;DEGUB to be on or off? 



A,0C9H ;Bit 7, l=on, O=off 

NC, DBGOFF ; Go if OFF 

A ; else reset to on 

LD (@DBGHK) , A 

HL,KFLAG$ ; Point to KFLAG$ 

A, 11111001B ;Reset pause and enter 

(HL) ; Merge together 

(HL) , A 

HL, SFLAG$ ;Point to System flag 
A,11111000B /Reset bits 0-2 

(HL) 

(HL) , A 
HL, 2FFFH 

(LOW$) , HL 



; Merge with old 
; Reset LOW$ 



Reset video RAM handler pointer 



LD 

LD 

LD 

AND 

LD 

LD 

PUSH 

POP 

EI 

CALL 

RET 



CMDCONT 
OR 
JR 
OR 



HL, OPREG_SV_AREA 

(OPREG_SV_PTR) , HL 
A, (CFLAG$) ;P/u CFLAG 
20H ; Leave only bit 5 

(CFLAG$) ,A ; and put it back 
HL, INBUF$ ;Point to command line 
HL ;Xfer start 

BC ; to BC 

QCKBRKC ; Check and clear BREAK 

; Local cleanup done 



A, (EFLAG$) ;P/u ECI flag 



LD 

A 

Z, CMD1A 

10001111B 



; Check if set 

; Go if normal 
;Set for SYS13 but 
; leave user entry code 



RST 28H 



CMD1A 


LD 


HL, RDYMSG$ 




CALL 


@DSPLY 


CMD2 


LD 


HL, CFLAG $ 




SET 


2, (HL) 




PUSH 


HL 




LD 


HL, INBUF$ 




LD 


BC, 79<8 



; Display ready message 

; Let the world know we 

; are in the command 

; interpreter 

; Get 19 chars max 

; No fill char for now 



CALL 


@ KEY IN 


EX 


(SP) , HL 


RES 


2, (HL) 


POP 


HL 


JR 


C,CMD 



• Turn off the interpreter 
; bit & re-get the buffer 



; Jump on <BREAK> 
Entry from @EXIT & @CMNDI 



CMD3A EQU 
LD 
CP 
JR 

LD 
CALL 



$ 

A, (HL) 

f f 

Z, CMD20 

A,CR 
@DSP 



; Check for comment 
; If so go before CR 

; is displayed 

; Do a line feed on 
CMNDI and @EXIT 



Entry from @CMNDR plus the above 
Always bring in bank 



; Prepare for bankO 
; Set function and 
; bank number to 
; Invoke bank 



Process the command entry 



CMD20 XOR 


A 


LD 


B,A 


LD 


C,A 


CALL 


@BANK 



CALL 


@LOGER 


LD 


DE, CFCB$ 


LD 


A, (HL) 


CP 


f f 


JR 


Z, COMMENT 


CP 


> * > 


JR 


NZ, CKNOEXC 


PUSH 


HL 


POP 


BC 


INC 


HL 


LD 


A, OFFH 


RST 


28H 


CKNOEXC 


SUB ' ! ' 


JR 


NZ, NOEXC 


INC 


HL 


NOEXC LD 


(TSTEXC+1) 


CALL 


FSPEC 


JR 


NZ, WHAT 


PUSH 


HL 


TSTEXC 


LD A, 


OR 


A 


JR 


Z, NOTLIB 


LD 


BC, LIBTBL$ 


CALL 


QFNDPRM 


JR 


Z, CMD4 


NOTLIB 


LD HL, Dl 


CALL 


FEXT 


POP 


HL 


LD 


A, (CFLAG$) 


AND 


10H 



; Log the entry 
: Point to command FCB 
; Jump on comment 



; Check if alternate CMD 
; processor needed 

; Get buffer in BC 
;Move HL past '*' 

;Set up for SYS13 entry 
; # 7, and do it 

; Test for program force 

;Bump past the ' ! ' 

;Fetch command spec 

; Jump on error 
; Save terminator pointer 

; Test if prog force 

; Jump if starting "!" 
;Pt to tbl of LIB cmds 

; Check for a match 
; Jump if it is 
TEXT /Else assume prg file, so 

default 'EXT' to CMD 
; Rcvr terminator pointer 
;Ck LIB only execution 
;CFLAG$ bit 4 



JP Z,@RUN ;The program else WHAT(?) 

; Process non-entry 

r 

WHAT LD HL,-1 ; Set to show abort 

RET 

/ 

; Process "dot " comment 

r 

COMMENT LD A, (SFLAG$) ; Ret if <D0> in effect 

BIT 5, A ; else get another 

JP Z, CMD2 ; input line 

LD HL, ; Set for no error 

RET 

; Process LIB command 

r 

CMD4 POP HL ;Rcvr terminator pointer 

LD A, 0C9H ; Turn off DEBUG 



LD (@DBGHK) , A 

LD A,D 

RLCA 

PUSH DE 

RET NC 

POP DE 

LD B,E 

RLCA 

RLCA 

ADD A, 84H 

RST 28H 



Test bit 7 of high 
order LIB address 

Ret to address of 

vector if bit 7=0 

Else put overlay # in 
Calculate needed library 
by rotating 7-5 into 
2-0 & adding RST base 



; BOOT code brings back the ROM 

r 

BOOTIT XOR A ; SVC => @IPL 

RST 28H 

; LIBRARY look-up table starts here 

LIBTBL$ EQU $ ; Start of library table 

f 

IF QSMALL 

r 

; Use this table for SMALL (OEM) library 

; DB 'APPEND ' 
; DW LIBA131H 

DB 'ATTRIB ' 

DW LIBB151H 

DB 'AUTO 

DW LIBB111H 

DB 'BOOT 
DW BOOTIT 
DB 'BUILD ' 
DW LIBB133H 
DB ' CAT ' 

DW LIBA120H 
; DB 'CLS ' 



• DW 


LIBA124H 




DB 'COPY 




DW LIBA132H 


■ DB 


' CREATE ' 


■ DW 


LIBBU3H 




DB 'DATE 




DW LIBBH5H 


■ DB 


'DEBUG ' 


■ DW 


LIBB ! 1 4H 


■ DB 


'DEVICE ' 


■ DW 


LIBA161H 




DB 'DIR ' 




DW LIBA121H 




DB 'DO ' 




DW LIBA191H 


■ DB 


'DUMP 


■ DW 


LIBB171H 




DB 'FILTER ' 




DW LIBA ! 66H 




DB 'FORMS ' 




DW LIBCiOBlH 


■ DB 


'FREE 


■ DW 


LIBB122H 


■ DB 


'LIB ' 


■ DW 


LIBA ! 1 9H 


■ DB 


'LINK 


■ DW 


LIBA ! 62H 


■ DB 


'LIST 


■ DW 


LIBA141H 


■ DB 


'LOAD 


■ DW 


LIBA181H 


■ DB 


'MEMORY ' 


■ DW 


LIBAHEH 


■ DB 


'PURGE ' 


■ DW 


LIBB ! 72H 




DB 'REMOVE ' 




DW LIBA ! 1 8H 


■ DB 


'RENAME ' 


■ DW 


LIBA153H 


■ DB 


'RESET ' 


■ DW 


LIBA ! 63H 


■ DB 


'ROUTE ' 


■ DW 


LIBA ! 64H 


■ DB 


'RUN ' 


■ DW 


LIBA ! 82H 




DB 'SET ' 




DW LIBA ! 65H 


■ DB 


'SET COM' 


■ DW 


LIBC10B2H 


■ DB 


'SETKI ' 


■ DW 


LIBC10B3H 


■ DB 


'SPOOL ' 


■ DW 


LIBC10A2H 




DB 'SYS GEN' 




DW LIBCHCH 




DB 'SYSTEM' 




DW LIBCiOAlH 



DB ' TIME 

DW LIBB ! 1 6H 
DB ' TOF 
DW LIBA125H 

DB ' VERIFY ' 

DW LIBBUBH 

DB ; Patch 'K' here for KILL 

DB ' ILL 

DW LIBAH8H 

NOP 



ELSE 

This table for FULL library 



DB 


'APPEND ' 


DW 


LIBAI31H 


DB 


'ATTRIB ' 


DW 


LIBBI51H 


DB 


'AUTO 


DW 


LIBBH1H 


DB 


'BOOT 


DW 


BOOTIT 


DB 


'BUILD ' 


DW 


LIBB133H 


DB 


'CAT ' 


DW 


LIBA120H 


DB 


'CLS ' 


DW 


LIBA124H 


DB 


'COPY 


DW 


LIBA132H 


DB 


'CREATE' 


DW 


LIBBH3H 


DB 


'DATE 


DW 


LIBBH5H 


DB 


'DEBUG ' 


DW 


LIBBH4H 


DB 


'DEVICE ' 


DW 


LIBA161H 


DB 


'DIR ' 


DW 


LIBA121H 


DB 


'DO ' 


DW 


LIBA191H 


DB 


'DUMP 


DW 


LIBB171H 


DB 


'FILTER ' 


DW 


LIBA ! 66H 


DB 


'FORMS ' 


DW 


LIBCiOBlH 


DB 


'FREE 


DW 


LIBB122H 


DB 


'LIB ' 


DW 


LIBA ! 1 9H 


DB 


'LINK 


DW 


LIBA ! 62H 


DB 


'LIST 



DW 


LIBA141H 


DB 


'LOAD 


DW 


LIBA181H 


DB 


'MEMORY ' 


DW 


LIBAHEH 


DB 


'PURGE ' 


DW 


LIBB ! 72H 


DB 


'REMOVE ' 


DW 


LIBA ! 1 8H 


DB 


'RENAME ' 


DW 


LIBA153H 


DB 


'RESET ' 


DW 


LIBA ! 63H 


DB 


'ROUTE ' 


DW 


LIBA ! 64H 


DB 


'RUN ' 


DW 


LIBA ! 82H 


DB 


'SET ' 


DW 


LIBA ! 65H 


DB 


'SET COM' 


DW 


LIBC10B2H 


DB 


'SETKI ' 


DW 


LIBC10B3H 


DB 


'SPOOL ' 


DW 


LIBC10A2H 


DB 


'SYS GEN' 


DW 


LIBCUCH 


DB 


'SYSTEM' 


DW 


LIBCOAIH 


DB 


' TIME 


DW 


LIBB ! 1 6H 


DB 


'TOF ' 


DW 


LIBA125H 


DB 


' VERIFY ' 


DW 


LIBBUBH 


DB 





DB 


'ILL 


DW 


LIBA ! 1 8H 


NOP 





: Patch 'K' here for KILL 



END IF 



Routine to fetch a filespec/devicespec 



FSPEC PUSH DE 

CALL SPARSER 

JR NZ, FSP5 
CP '/' 

JR NZ, FSP1 

LD (DE) , A 

INC DE 

LD B,3 

CALL QPAR1 

FSP1 CP 

JR NZ, FSP2 

LD (DE) , A 



; Save pointer to DCB 

; Parse expected command 
;NZ=not file, ck for device 

;EXT separator? 

;File extent coming, 
; get it 
; EXT is 3-chars maximum 

; PASSWORD entered? 

; Password coming, 





INC 


DE 




CALL 


SPARSER 




JR 


NZ,FSP6 


FSP2 


CP 


t ■ t 




JR 


NZ, FSP3 




LD 


(DE) , A 




INC 


DE 




LD 


B,l 




CALL 


@PAR1 




JR 


NZ,FSP6 


FSP3 


CP 


' ! ' 




JR 


NZ, FSP4 




LD 


(DE) , A 




INC 


DE 




INC 


HL 




LD 


A, (HL) 


FSP4 


LD 


C,A 




LD 


A, 3 




LD 


(DE) , A 




XOR 


A 




LD 


A,C 




POP 


DE 




PUSH 


DE 




LD 


BC, PREPTBL 




CALL 


QFNDPRM 




POP 


DE 




JR 


Z, FSPEC 




XOR 


A 




RET 




FSP5 


CP 


' * ' 




JR 


NZ,FSP6 




LD 


(DE) , A 




INC 


DE 




LD 


B,2 




CALL 


@PAR1 




JR 


Z, FSP4 


FSP6 


POP 


DE 



get it also 

; Return if error 
: Drive entered? 

;A one-byte drive 
has been had 



; Return if error 
Update EOF always? 

; Yes slow but accurate 
Incr buffer pointers 



: Save separator char 

; Stuff an ETX 

;P/u separator 
:P/u start of DCB 

:Ck on prepositions 

: Can use TO, ON, 

OVER, USING 

: Return with Z flag 

: Ck on device spec 

; Jump if not device 
; else stuff the '*' 

•Xfer two char device 

; Terminate buffer 



RET 



Preposition table 



PREPTBL 


DB ". 


TO ' 


DW 


SBUFF$ 




DB 


'ON 


t 


DW 


SBUFF$ 




DB 


'OVER 


t 


DW 


SBUFF$ 




DB 


' USING 


t 


DW 


SBUFF$ 




NOP 






/ Fetch 


default 


file extension 



FEXT PUSH DE 

PUSH HL 

EX DE, HL 

INC HL 



• Save FCB pointer 

• Save EXT default pointer 
: Exchange pointers 





LD 


B,9 


FEX1 


LD 


A, (HL) 




CP 


'/' 




JR 


Z, FEX3 




JR 


C, FEX4 




CP 


f . f 




JR 


C, FEX2 




CP 


'A' 




JR 


C, FEX4 


FEX2 


INC 


HL 




DJNZ 


FEX1 


FEX3 


POP 


HL 




POP 


DE 




RET 





; Init for 9-char test 

; Ret if extension start 
; is found 

; Jump on other separator 
; Jump on digit 0-9 

; Jump on special char 

; Advance past A-Z, 0-9 

;User entered file EXT 
;FCB start 



Use default extension 



FEX4 LD 


BC,15 


ADD 


HL,BC 


LD 


D,H 


LD 


E,L 


INC 


DE 


INC 


DE 


INC 


DE 


INC 


DE 


INC 


BC 


LDDR 




POP 


HL 


INC 


HL 


INC 


HL 


LD 


C,3 


LDDR 




LD 


A, '/' 


LD 


(DE) , A 


POP 


DE 


RET 





;Point to position past 
; the filespec 



;Make room for '/EXT' 
; which is 4 chars 



; Now move 16 bytes 

; Recover pointer to EXT 
; Point to 3rd char 

;Move in 3 chars 

; Put in the slash 

; Point back to FCB 



Get the code for the @PARAM SVC 

r 

*GET 'PARAM:1' 

f 

DFTEXT DB ' CMD ' ; Default extension 

IF @M0D2 

RDYMSG$ DB LF , 14 , ' LS-DOS Ready ', CR 

ELSE 
RDYMSG$ DB LF , 14 , ' TRSDOS Ready ', CR 

END IF 
LAST EQU $ 

IF $.GT.DIRBUF$ 

ADISP 'ERROR: Module too big' 

END IF 

ORG MAXCOR$-2 

DW LAST-SYS1 ; Size of overlay 

END SYS1 



;SYS2/ASM - LS-DOS 6.2 

ADISP '<SYS2 - LS-DOS 6.2> 



This SYS module performs the following functions : 
OPENs an exitsting File or Device 
INITs a new file 

Checks availability of a specific drive 
Hashes an 11-byte field (file name Sext) 
Hashes an 8-byte field (password) 
Renames a filespec/devspec 
Gets the address of a Device Control Block 



CR EQU 13 

*LIST OFF 

*REF ' SYSO/EQU :1 

*LIST ON 

*GET 'C0PYC0M:1' 

f 

ORG 1E00H 



SYS 2 



AND 

RET 

CP 

JP 

CP 

JP 

CP 

JP 

CP 

JR 

CP 

JR 

CP 

JR 



7 OH 

Z 

10H 

Z, OPEN 

2 OH 

Z, INIT 

7 OH 

Z, RENAME 

3 OH 

Z, GTDCB 

4 OH 

Z, CKDRV 

60H 

Z, HASHPSWD 



;Get SYSO/EQU 

; Copyright message 

; Strip all but entry 
;Back on zero entry 
; Check for OPEN 

; Check for INIT 

; Check for rename 

;Get a DCB? 

; Drive availability? 

; Check password hash 



Routine to hash a file name 



HASHNAME 
LD 
XOR 

HNAME1 

INC 

RLCA 

DJNZ 

OR 

JR 

INC 

HNAME2 

RET 



EQU 
B r ll 
A 
XOR 

HL 



; Init for 11 chars 
; Clear for start 
(HL) ;Modulo 2 addition 

; Bump to next character 
;Rotate bit structure 

; & loop for field len 
; Do not permit a zero 
; hash code 



HNAME1 

A 

NZ, HNAME2 

A 

LD (FILEHASH) , A 



/ Stuff code for later 



Hash a password 



WD 


EQU 


LD 


HL, 7 


ADD 


HL,DE 


EX 


DE,HL 


LD 


HL, -1 



; Hashing will be from 
; right to left so 
; point to low-order 
; Init shift reg to 1's 



LD 


B,8 


' 


LD 


PUSH 


DE 


LD 


D,A 


LD 


E,H 


LD 


A,L 


AND 


7 


RRCA 




RRCA 




RRCA 




XOR 


L 


LD 


L,A 


LD 


H,0 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,HL 


XOR 


H 


XOR 


D 


LD 


D,A 


LD 


A,L 


ADD 


HL,HL 


XOR 


H 


XOR 


E 


LD 


E,A 


EX 


DE,HL 


POP 


DE 


DEC 


DE 


DJNZ 


HPSWD1 


XOR 


A 


RET 





; Init for 8-char string 
A, (DE) ;P/u the next byte 

; & save the pointer 



; Modulo 2 add bits 0-2 

; to bits 4-6 of the 

; 16-bit shift register 



; Shi ft shift-regitser 
; left by 4-bits to 
; isolate bits 4-7 



;Mod 2 add SR bits 4-7 

;Mod 2 add new byte 

; Save tempy for high-order 



; SR result to HL 

;P/u pointer to string 

; & point to next byte 

; Loop for field length 
;Set Z 



Routine to locate a Device Control Block 
LD 



GETDCB 

LD D, (IX+2) 

GTDCB LD HL,KIDCB$ 

DEVI PUSH HL 

LD A,L 



E, (IX+1) ;P/u the 2-character 

; device name 
; Point to 1st DCB 



; Point to device 
; name field 

;P/u 1st char of name 
; Point to 2nd char 
; Compare 1st for match 

; No match? then loop 
; 1st matches, does 2nd? 

; Loop if no match 
; Get start of DCB 

;Pop last DCB start 

; Inc to start of next DCB 

; Bypass if not at end 



Device not found in tables 

LD A, 8 ; "device not available" 



ADD 


A, 6 


LD 


L,A 


LD 


A, (HL) 


INC 


L 


CP 


E 


JR 


NZ, DEV2 


LD 


A, (HL) 


CP 


D 


JR 


NZ, DEV2 


POP 


HL 


RET 




DEV2 POP 


AF 


INC 


L 


JR 


NZ, DEVI 



OR 
RET 



Check a drive for availability 



CKDRV PUSH 
CALL 
LD 
CP 
JP 

PUSH 
PUSH 
BIT 
JR 
LD 
CP 
JR 

CALL 
JP 



IY 

QGTDCT 
A, (IY+O) 
0C3H 

NZ, CKDRV5 
HL 
DE 

3, (IY+3) 
NZ, CKDRV1A 
A, (IY+6) 
(IY+5) 
NC, CKDRV1 
QRSTOR 
NZ,CKDR7A 



;We use IY in Disk I/O 

; Get driver routine addr 
;P/u drive vector 
;Ck for enabled 
; Bypass if disabled 



;Test for HARD drive 

; If so bypass range check 

;Make sure the current 

; cylinder is in range 
; Go if in range 

/Restore drive 
; Go if error 



CKDRV1 

LD 

CALL 

JR 
CKDRV1A 

JR 

BIT 

JR 

BIT 

JR 

IF 

LD 

OR 

LD 

JR 

SRL 

DI 

END IF 

IF 

LD 

END IF 
INTRON 

LD 



LD D, (IY+5) 

E,0 ;Set 

@SEEK 

NZ,CKDR7A 

CALL QRSLCT 

NZ,CKDR7A 

3, (IY+3) 
NZ, CKDR3A 

4, (IY+4) 
NZ, CKDR2B 
@M0D4 

A, (FDDINT$) , 
A 

A, 09 
Z, INTRON 
A 



;P/u current track 
for sector 
Send track info to FDC 
Go if error 

;Wait until not busy 
Not there - ret NZ 
If hard drive, bypass 

GAT data update 
If "ALIEN" bypass 

test of index pulses 



Check 'SMOOTH' state 



Set MSB of countdown 
Go if not SMOOTH 
; Divide the count by two 



@M0D2 
A, 20 

LD (CDCNT+1) ,A ; Store in ' LD H' instruction 

HL,0020H ;Set up count (short) 



Test for diskette in drive and rotating 



CKDR1 


CALL 


INDEX ; 




JR 


NZ, CKDR1 ; 




BIT 


7, (IY+4) 




JR 


NZ, CKDR2B 


CDCNT 


LD 


H, OOH ; 


CKDR2 


CALL 


r 

INDEX ; 




JR 


Z, CKDR2 




IF 


QM0D4 




EI 


r 



; Test index pulse 

; Jump on index 

; Check CKDRV inhibit bit 

; If on skip index test 

; CKDRV counter (long) 

; Count set from above 

; Test index pulse 

; Jump on no index 

; Okay for INTs now 



END IF 



LD HL,0020H ; Index off wait (short) 

CKDR2A CALL INDEX 

JR NZ, CKDR2A ; Jump on index 

r 

; Diskette is rotating 



CKDR2B 


PUSH AF 


CALL 


QDIRCYL 


LD 


HL, SBUFF$ 


LD 


E,L 


CALL 


@RDSSC 


JR 


NZ,CKDR7 


LD 


HL, (SBUFF$ 


LD 


A,22H 


ADD 


A,L 


LD 


(IY+6) ,A 


RES 


5, (IY+4) 


BIT 


5,H 


JR 


Z, CKDR3 


SET 


5, (IY+4) 


CKDR3 POP 


AF 


CKDR3A 


RLCA 


OR 


(IY+3) 


AND 


10000000B 


LD 


(0PNCB9+1) 


ADD 


A, A 


r 

CKDR4 EQU 


$ 


EI 




POP 


DE 


POP 


HL 


CKDRV5 


POP IY 


RET 




INDEX LD 


A,H 


OR 


L 


JR 


Z, CKDR7 


DEC 


HL 


CALL 


QRSLCT 


BIT 


1,A 


RET 




CKDR7 POP 


AF 


f 

CKDR7A 


OR A 


JR 


CKDR4 



; Save FDC status 

; Get directory track in D 
; Point to HIT buffer 
; Sector for GAT 

;Read the GAT 
; Jump on error 
i-OCCH) ;P/u excess tracks 
; Add offset 

;Max track # to DCT 

; Set to side 

; Test double sided 

; Jump if only single 

; Set for side 2 

; Recover FDC status 

; Shift write prot to 7 
; Merge Software WP bit 

; Strip all but bit 7 
, A /Save WP status for OPNCB 

; Write protect to C flag 



; Check for index pulse 
; Test index 



;Set NZ 
and exit 



ret 



; OPEN a device 

; Device Control Blocks are from X'0208' - X'02FF' 

DEVOPEN CALL GETDCB ; Find the DCB named 

RET NZ ; in the IX pointer 

r 

: Found the needed Device Control Block 



DEV4 



LD 


B,H 


LD 


C,L 


PUSH 


IX 


POP 


HL 



;Xfer deb vector to BC 



User DCB to HL 



LD 


(HL) , 1 OH 


; Show routed 


INC 


HL 




LD 


(HL) , C 


; Stuff deb vector 


INC 


HL 




LD 


(HL) , B 




INC 


HL 




XOR 


A 


; Zero next 3 bytes 


LD 


(HL),A 




INC 


HL 




LD 


(HL) ,A 




INC 


HL 




LD 


(HL) ,A 




INC 


HL 




LD 


(HL) , E 


; Stuff deb name 


INC 


HL 




LD 


(HL) , D 




RET 







OPEN a file 
HL => the address of a 256-byte buffer 
DE => the address of a 32-byte FCB 
B => the logical record length (LREC) 



OPEN CALL 

0PEN1 LD 
LD 
AND 
LD 
LD 
CP 
JR 
LD 
LD 
LD 

PUSH 
POP 
CALL 
RET 
LD 

CALL 
LD 
CALL 
LD 
LD 

0PEN2 LD 
LD 
INC 
JR 
LD 

0PEN3 CALL 
JR 

CALL 
RET 



LNKFCB@ 
A, (SFLAG$) 

(0PEN14+1) , 
11111000B 

(SFLAG$) , A 
A, (IX+O) 



; Set up link to DCB 
; Stuff current sysflag 
A ; to chack later then 

; remove bits 0,1,2 



Z, DEVOPEN 
A,B 

(LREC$) , A 

(0PNCB4+1) ,HL 

IX 

HL 

XFRSPEC 



; If name starts with '* 
; it is a device spec 
;P/u LRL requested 



/Stuff disk I/O buffer 
/Transfer the filespec 
; into the system 

; buffer area 



NZ ; Return if bad name 

HL,NAME$EXT ; Point to name/ext field 
HASHNAME ; & hash it (11 chars) 

DE,PSWDBUF ; Point to the password 
HASHPSWD ; & hash it 

(PW$HASH1) ,HL ; Stuff owner password 

(PW$HASH2) ,HL ; Stuff user pasword 

A,0 
C,A 



A 

NZ, OP EN 3 

C,A 

CKDRV 

NZ, 0PEN6 

QHITRD 

NZ 



;P/u drive <FF-07> 
; Jump if :dr entered 



; Drive available? 
; Jump if not 

; Get hash index table 
; Return if read error 



Compare hashed filename£xt with each entry 
in the HIT to see if file is on this drive 



0PEN4 


LD 


A, (HL) 




OR 


A 




JR 


Z, OPEN 5 




PUSH 


HL 




LD 


HL, FILEH. 




CP 


(HL) 




POP 


HL 




JR 


Z, OPEN 9 


0PEN5 


INC 


L 




JR 


NZ, OP EN 4 



; Bypass HIT entry if 
; unused 

;Not vacant 

; Point to DEC 

; Compare with HIT entry 

; Jump if a match else 
; bump to next entry 
; Loop until 256 bytes 



File not on this drive 



0PEN6 CALL 


TESTDRV 


JR 


C, 0PEN3 


OP EN 7 LD 


A, 24 


OR 


A 


RET 




TESTDRV 


LD A, 


INC 


A 


OR 


A 


RET 


NZ 


INC 


C 


LD 


A,C 


CP 


8 


RET 





; Bump drive if we can 

; Loop if another to test 

;File not found error 

;Set NZ 



A, (0PEN2+1) ;If drive still X ' FF ' , 
; then advance to next 
; Reset Carry for ret w/o 
; affecting Z/NZ result 
; Bump drive counter 

;Loop end, 8 DRIVES MAXIMUM 



Although the HIT entry matched, the filenamee'xt 
did not (due to a collision) . Continue to scan 
the rest of the Hash Index Table. 



0PEN8 POP 


BC 


POP 


HL 


POP 


BC 


CALL 


QHITRD 


POP 


HL 


RET 


NZ 


JR 


0PEN5 



; Remove ret address and 
; excess registers 

; Re-read the HIT 

; Go on I/O Error 



The hashed name matches, read the directory 



OPEN 9 PUSH 


HL 


PUSH 


BC 


LD 


B,L 


CALL 


@DIRRD 


JR 


Z, 0PEN1 


POP 


BC 


POP 


HL 


RET 





; Set up the Directory 

; Entry Code 
; Jump if no error 
; else pop returns 

& exit NZ 



Verify that directory entry is this file 



OPEN1 



PUSH 
BC 



HL 



PUSH BC ;Save drive (reg C) 

If bit 7 is set, in denotes an extended 



directory entry which does not include 

the filename. Go to the next HIT entry if set 



OP EN 11 



BIT 
JR 
BIT 
JR 
LD 
ADD 
LD 
LD 
LD 
I 
CP 
JR 
INC 
INC 
DJNZ 
POP 
LD 
LD 
POP 
POP 
POP 
PUSH 
PUSH 
LD 
LD 
AND 
LD 
LD 
LD 
ADD 
LD 
LD 
LD 
INC 
PUSH 
LD 
LD 
LD 
BIT 
JR 
LD 
LD 



USEPWD 



SBC 
POP 



WASMAT 



LD 

CP 

JR 

INC 

LD 

LD 

INC 

LD 



■Jump 



;Test for FXDE 
if extended 
; If DIR record spare, 
; continue to search 
Point to filename/ext 
field in directory 



Point to entered name 
Init to check 11 chars 

; Verify a match 

or no match 
Go to next HIT entry 

if no match; else bump 

pointers & loop 

Matches! get drive # 
& stuff it 



7, (HL) 

NZ, OP EN 8 

4, (HL) 

Z, OP EN 8 

A, 5 

A,L 

L,A 

DE, NAME$EXT 

B,ll 

LD A, (DE) 

(HL) 

NZ, OP EN 8 
HL 
DE 

0PEN11 
BC 
A,C 

(0PEN2+1) , A 
HL 
AF 
AF 
BC 
HL 
A, (HL) 

(DIR$INIT) , I 

00000111B 

C,A 

B,0 

A, 16 

A,L 

L,A 

DE, (PW$HASH2) 

A, (HL) 

HL 

HL 

H, (HL) 

L,A 

A, (NFLAG$) ;P/u NFLAG$ 

7, A ; Check network active bit 

Z, USEPWD 

D,H 

E,L 

XOR A ; Compare password entry 

HL,DE ; with owner password 

HL 

JR Z,0PEN16 ; Grant access if match 



; Save DEC and drive 

; Save ptr to dir record 

;P/u 1st byte of dir rec 
4 / Stuff it 
; Strip all but protection 



; Point to update password 



;P/u password hash 

;P/u owner pswd low-order 



;P/u owner pswd high— order 



A,C 

7 

Z, OP EN 12 

HL 

B,C 

A, (HL) 

HL 

H, (HL) 



; Recover protection 
; Abort if "no access" 

; else point to user 

; password & Xfer prot lvl 

;P/u user pswd low-order 

;P/u user pswd high-order 



; Check for a match 



LD L,A 

XOR A 

SBC HL, DE 

JR Z,0PEN13 ; Jump if match 



File is password protected - abort 



OPEN 12 POP HL 

POP BC 

LD A, 25 

OR A 
RET 



; "file access denied due to.. 
; Set NZ for error 



Check if prot is EXECute only 



OP EN 13 


LD A,C 


CP 


6 


JR 


NZ, 0PEN1 6 


OPEN 14 


LD B, 


BIT 


2,B 


JR 


Z, OP EN 15 


LD 


HL, SFLAG$ 


SET 


1, (HL) 


LD 


A, 5 


OP EN 15 


LD HL, i 


LD 


(HL) , 0C9H 


0PEN1 6 


LD (0P1 


POP 


HL 


POP 


BC 



; Check for EXEC ONLY 
; Jump if not 

;P/u SFLAG$ entry state 
;Did RON request open? 
; Bypass if not from RUN 



;Show RUN & EXEC file 
; Set READ access for now 
HL,SET@EXEC ; Set RST vector to turn 

off DEBUG 
(0PNCB1+1) ,A ; Stuff access level 

;Ptr to direc record 
;P/u DEC and drive 



Routine to open up the FCB from the directory 
HL => directory record in SBUFF$ 

BC => DEC and drive used for directory read/write 
IX => pointer to File Control Block 



OPNCB PUSH 
PUSH 
POP 
PUSH 
CALL 
POP 
LD 
BIT 
JR 
XOR 

OPNEX POP 
RET 

0PNEX1 

JR 
POP 

0PNEX2 

AND 

OR 

LD 

LD 

RET 



IY 

HL 

IY 

BC 

OPNCB 

BC 

HL,0PEN14+1 

0, (HL) 

Z, OPNEX 1 

A 

IY 



BIT 5, (IY+1) 
Z, OPNCB 8 
IY 

LD A, (IX+1) 

11111000B 
5 

(IX+1) , A 
A, 41 



;Save IY 

; Transfer direc record 

; ptr to IY 

; Save DEC and drive 

; Create the opened FCB 

; If from LOAD, don't do 

; any further checks 



; If file already open 
then set read-only 
& return "file open. . . 

;P/u current attributes 
;Mask off current prot 
; & replace with READ 
; Reset acces to READ 
■ Set "file already open" 



; If access level is > READ, set file open flag in 
; the directory & note close authority in the FCB 

r 

0PNCB8 LD A, (IX+1) ;P/u FCB access level 

;Mask off other junk 
;Ck READ, EXEC, NONE 
; Go if one of the above 

0PNCB9 LD A, ; P/u CKDRV status 

;Was drive write prot? 
;C flag = Wr Prot 
; Set file open in direc 
;P/u Network flag 
; Check for function ON 
; Write the directory 

; Set close authority 

Check if passed LRL matches directory 



CP 


5 


JR 


NC, 0PNCB1 


J 


LD A, 


RLCA 




JR 


C, FRCREAD 


SET 


5, (IY+1) 


LD 


A, (NFLAG$) 


BIT 


0,A 


CALL 


NZ, @DIRWR 


JR 


NZ, OPNEX 


SET 


6, (IX+O) 



OPNCB10 LD A, (IX+9) ;P/u LRL from FCB 

CP (IY+4) ; compare with directory 

LD A, 42 ; Init "LRL open fault 

JR OPNEX 



FRCREAD 
JR 



Disk write protected - Change access to RAD 

; Change access to READ 



CALL 0PNEX2 
0PNCB1 



This routine creates the open file control block 
DE,HL 



OPNCBO EX 

PUSH IX 

POP HL 

LD 

AND 

OR 

LD 

INC 

LD 

OR 
0PNCB1 

JR 

OR 
0PNCB2 



; Transfer FCB pointer 



A, (DE) ;Get DIR+O 

00100000B ;Keep "PDS" bit & show 

10000000B ; FCB as open 
(HL),A ; Shove into FCB+O 

HL 

A, (LREC$) ;P/u LRL 

A ;Test for (is 256) 
LD A, ;Now start byte 2 with 

Z,OPNCB2 ; that set by "0PEN16" 

10000000B ; Show sector or byte I/O 
OR 00100000B ; Show buffer is empty 



Set bit 3 if filespec ended in an 
exclamation point. This causes the 
directory to be updated on EVERY 
file write where the EOF is extended 



OPNCB3 



! 


OR 


LD 


(HL) , A 


INC 


HL 


XOR 


A 


LD 


(HL) , A 


INC 


HL 



; Init FCB+1 



; Init FCB+2 with 



OPNCB4 



0PNCB5 



PUSH 


DE 




I 


LD 


DE, 


LD 


(HL), 


,E 


INC 


HL 




LD 


(HL), 


,D 


INC 


HL 




POP 


DE 




LD 


(HL), 


,A 


INC 


HL 




LD 


(HL), 


,C 


INC 


HL 




LD 


(HL), 


,B 


INC 


HL 




INC 


DE 




INC 


DE 




INC 


DE 




LD 


A, (DE) 


LD 


(HL), 


,A 


INC 


HL 




INC 


DE 




LD 


A, (LREC$) 


LD 


(HL), 


,A 


INC 


HL 




XOR 


A 




LD 


(HL), 


,A 


INC 


HL 




LD 


(HL), 


A 


INC 


HL 




SET 


4,E 




LD 


BC,2 




EX 


DE,HL 


LDIR 






EX 


DE,HL 


LD 


A, 5 




PUSH 


AF 






LD 


A, (DE) 


LD 


(HL), 


,A 


INC 


HL 




INC 


DE 




LD 


A, (DE) 


LD 


(HL), 


.A 


INC 


HL 




AND 


00011111B 


INC 


A 





; Put address of disk I/O 

; buf into FCB+3 & FCB+4 



;FCB+5 with for 

; low order next 

;FCB+6 with drive 

;FCB+7 with DEC 

; Point to DIR EOF byte 



;P/u DIR low order EOF 
& stuff into FCB+8 



;P/u LRL & stuff 

: into FCB+9 



;Init FCB+10 & FCB+11 
with zero for NRN 



; Point to file EOF 
;Move ERN 

; and zero BC reg 

;Max 5 extents 

;Move starting track 

;Move grans & offset 



/Strip out grans 
; Bump for offset 



Add reg A to reg pair BC 



ADD 


A,C 


LD 


C,A 


JR 


NC, $+3 


INC 


B 


POP 


AF 


DEC 


A 


RET 


Z 


PUSH 


AF 


INC 


DE 


LD 


A, (DE) 



; Add previous count 
; Update C 

; Go if no carry to B 

; Recover counter 

; Decrement loop 

; Done if moved in 5 



; Test for end of extents 



CP OFEH /Extent in use? 

JR NC,0PNCB6 ;Jump if not 

LD (HL),C ; Stuff # of cumulative 

INC HL ; grans to this 

LD (HL) ,B ; allocation into FCB 

INC HL 

JR 0PNCB5 ;Loop for next 



Unused extents — Put X'FFFF' in remaining fields 
AF 



0PNCB6 POP 

RLCA 

RLCA 

LD B,A 

0PNCB7 LD 

INC HL 

DJNZ 0PNCB7 

RET 



; Recover counter 
; Make times 4 and 
; fill remaining 
; extent bytes with 
(HL) , OFFH ; OFFH 



INIT a file 
HL => the address of a 256-by.e buffer 
DE => the address of a 32-byte FCB 
B => the logical record length (LREC) 



INIT CALL 


LNKFCB@ 


LD 


(0PNCB1+1) , 


PUSH 


HL 


LD 


HL, SFLAG$ 


RES 


2, (HL) 


POP 


HL 


CALL 


0PEN1 


RET 


Z 


CP 


24 


RET 


NZ 


LD 


A, 10H 


LD 


(DIR$INIT) , 


LD 


A, (0PEN2+1) 


LD 


C,A 


INC 


A 


PUSH 


AF 


JR 


NZ, INIT1 


LD 


C,A 


INIT1 POP 


AF 


CALL 


CKDRV 


JR 


NZ, INIT2 


JR 


C, IN IT 2 


CALL 


QHITRD 


RET 


NZ 


CALL 


SPRHIT 


JR 


Z, IN IT 4 


XOR 


A 


INIT 2 PUSH 


AF 


CALL 


TESTDRV 


JR 


C, INIT1 


LD 


A, (0PEN2+1) 


INC 


A 


JR 


NZ, INIT2A 



;Link to FCB 
/Start FCB+1 with 

•Reset called by RUN bit 



■Can we "OPEN" the file? 
•Return if file existing 
: Return if error not 

"file not found" 
: Set dir rec to show 

; assigned 
;P/u the drive entry 

•Jump if a drive entry 

was made 

• Stack integrity 

: Is this drive available? 

: Jump if not 

; or if write protected 

;Read Hash Index Table 
: Return if read error 

; Locate spare entry 

; Jump if space 
•Set status of CKDRV=Z 
■Save last CKDRV status 

; Loop if not at end 
•If drive spec not entered 
then "directory full 



POP 



AF 



JR 


ERR26 




INIT2A 


POP AF 




JR 


NZ, ERR32 


f 


JR 


C,ERR15 




ERR26 LD 


A, 26 


f 


DB 


1 


r 


ERR15 LD 


A, 15 


f 


DB 


1 


r 


ERR32 LD 


A, 32 


f 


OR 


A 


r 


RET 







; Stack integrity 

; If no drive then 
"illegal drive. . . else 

; If Cy then "write protected 
else "directory space full 
Mask with LD BC,nnnn 

if fall through 
Mask . 

; Set NZ for error 



Found a spare HIT entry position 



INIT4 LD 
LD 
LD 
CALL 
CALL 
RET 
PUSH 
PUSH 
EX 
LD 
LD 

LDIR 
LD 
LD 

LDIR 
EX 
LD 

INIT5 CALL 
POP 
CALL 
POP 
RET 
CALL 
SCF 
RET 



B, L ; Save DEC 

A, (FILEHASH) ; P/u filespec hash 



(HL) , A 

@HITWR 

Z, QDIRRD 

NZ 

HL 

BC 

DE,HL 

BC,5 



; & store in HIT 
; Write updated HIT 
; Read that dir record 
; Return if read error 



;Move 1st 5 bytes into 



HL, DIR$INIT ; directory record 

C,17 ;Move filename & password 

HL, NAME $ EXT ; info into directory 



DE,HL 

B,10 

OPNCB 7 

BC 

QDIRWR 

HL 

NZ 

OPNCB 



;Put X'FFFF' into 5 extents 

;4 for the ext ' s S 1 for 

; starting info 

; Write updated directory 

; Return if write error 

; else open the FCB 

; Indicate new file by C fl 



Xfer the filespec to system buffs area 



XFRSPEC LD B, 19 

LD DE, PSWDBUF 

LD A,20H ;Blank out the filename 

XSPEC1 LD (DE),A ; field in system buffer 

INC DE 

DJNZ XSPEC1 

LD A, OFFH ;Set drive to X ' FF ' for 

LD (OPEN2+1) ,A ; checking user entry 

LD E, NAME $EXT& OFFH ; Xfer filename 

CALL XSPEC8 

LD C,A 

LD A,B 

SUB 8 ;Any valid chars found? 

JR NZ,XSPEC3 ; Jump if valid name 



Filename was invalid format 

OR 19 ; "illegal file name" 

RET 



Continue to check file spec 



XSPEC3 



CP 

LD 

LD 

CALL 

CP 

LD 

CALL 

CP 

JR 

LD 

SUB 

LD 

AND 

LD 

RET 

INC 

LD 



XSPEC6 



LD 
JR 
XOR 



XSPEC7 



LD A,C 

'/' ;Ext entered? 

E, FILE$EXT&OFFH 
B,3 
Z,XSPEC8A ;Xfer the extension 

'. ' ; Password entered? 

E, PSWDBUF&OFFH 
Z,XSPEC8 ;Xfer the password 

' : ' ;Drive entered? 

NZ, XSPEC6 
A, (HL) 

'0' 



;P/u drive # 
; Convert to binary 



(0PEN2+1) ,A ; Stuff drive # 

0F8H ;Must be <0-7> 

A, 32 ; "illegal drive #" 

NZ ; Return error if out 

HL ; of range 

A, (HL) /Does filespec end in 

SUB 21H ; exclamation point? 

A, 8 ; Init to set bit 3 of 

Z,XSPEC7 ; FCB+1 & jump if "!" 

A ; else reset if not 

LD (0PNCB3+1) ,A 



RET 



XSPEC8 


LD B,8 


XSPEC8A 


LD A, (HL) 


INC 


HL 


JR 


XSPEC1 


XSPEC9 


LD A, (HL) 


INC 


HL 


CP 


'0' 


RET 


C 


CP 


' 9'+l 


JR 


CXSPEC11 


XSPEC1 


CP 'A' 


RET 


C 


CP 


'Z'+l 


RET 


NC 


XSPEC11 


LD (DE) , A 


INC 


DE 


DJNZ 


XSPEC9 


LD 


A, (HL) 


INC 


HL 


RET 





;P/u a filespec character 
S 1st test for A-Z 

;P/u a filespec character 
/Advance to next one 
/Check for 0-9 



■ Check for A-Z 



/Character if valid 
/Advance to next one 
; & loop 
;P/u following character 



Routine to find a spare HIT entry 



Calculate the number of directory sectors 
= (isectors x #heads) - 2 for GAT & HIT 



SPRHIT 



LD 

CALL 

PUSH 

LD 

AND 

LD 

INC 

XOR 

RLCA 

RLCA 

RLCA 

INC 

CALL 

LD 

LD 

CALL 

BIT 

LD 

JR 

ADD 



ONESID 



SUB 
LD 



EQU $ 

A, 7 

QDCTBYT 

DE 

D,A 

00011111B 

E,A 

E 

D 



A 

@MUL8 
E,A 
A, 4 

gDCTBYT 
5, A 
A,E 

Z, ONESID 
A, A 

POP DE 
2 
(GSH3+1) ,A 



; Get highest # sector 



Store heads & sectors 
Rake off # sectors 

S stuff into E 
Adjust for offset 
Recover # heads 

into bits 0-2 



; Adjust for offset 

; Multiply sectors x heads 

: Now check if double— sided 



;Set if 2-sided 

; Go if not set else 
; double the value 

; Reduce for GAT & HIT 
; Stuff for compare 



Search across rows 

LD L,27H ;Try to use a HIT 

CALL GSHLOOP ; past the SYS slots 

RET Z ; Return if spare found 



LD 

GSHLOOP 
JR 
OR 
RET 

GSHTRY 

AND 

GSH3 CP 
LD 
JR 
OR 
LD 
JR 

GSHOK LD 
OR 
RET 
JR 



L,l 

INC L 
NZ, GSHTRY 
H 



LD 

1FH 



A,L 

C, GSHOK 

1FH 

L,A 

GSHLOOP 

A, (HL) 

A 

Z 

GSHLOOP 



A,L 



; Start after DIR slot 

; Step to next 
; Go it not done yet 
;Set NZ flag 
; Return failure 

; Skip unused parts 

; Cp with # of dir sectors 

;Go if NOT unused 
; Force to end of row 



; Loop back & ck 
;P/u HIT byte 

; Free ? 

; Done if so 

; Try next 



for end 



Routine to rename a filespec/devspec 



RENO 



LD 
LD 
OR 



A, 18H 
(WASMAT) , A 
A 



; Denote "file not in dir 



RET 



; Ret w NZ condition 



RENAME 


CALL LNKFC 


Bis 


LD 


A, (IX+O) 


; 


SUB 


i * ' 


; 


JR 


Z, RENDEV 




CP 


'R' !80H- ' * 


/ 


JR 


Z, RENO 




PUSH 


HL 


f 


LD 


HL, SFLAG$ 


f 


SET 


0, (HL) 




CALL 


0PEN1 


r 


POP 


HL 




RET 


NZ 


r 


LD 


A, (IX+1) 


f 


AND 


7 


r 


CP 


3 




JR 


C, REN1 




LD 


A,25H 


r 


OR 


A 




RET 







; Save regs & link to IX 



If a device, use the 
"device" routine 

Special open condition? 

; Go if so 
Save new pointer 
Set don't test flags 

Open the "old" spec 

Exit on error 
Make sure user has 

permission to rename 



'illegal acces . 



User has acces to rename -locate drivespec 



REN1 PUSH 

REN2 LD 
INC 
CP 
JR 
CP 
JR 
CP 
JR 

REN3 DEC 
LD 
INC 
LD 
LD 
AND 
ADD 
LD 
INC 
LD 
LD 
POP 
PUSH 
LD 
SET 
CALL 
POP 
JR 

REN3A LD 
OR 
RET 

REN4 CP 
RET 
CALL 
RET 



HL 

A, (HL) 

HL 

CR 

Z, REN 3 

3 

Z, REN 3 

t ■ t 

NZ, REN 2 
HL 

(HL) 
HL 

A, (IX+6) 
C,A 

7 

A, '0' 
(HL) ,A 

HL 
(HL) , CR 

B, (IX+7) 
IX 

BC 

HL, SFLAG$ 

0, (HL) 

0PEN1 

BC 

NZ, REN 4 

A, 19 

A 

24 
NZ 

QDIRRD 
NZ 



; Save start 

;P/u char of new spec 



; Go on ENTER 

; Go on ETX 

; Loop on colon 
Back up to where the 
colon should go 
& force the drivespec 
to the same as "old" 
; Keep drivespec in C 

;Make it an ASCII digit 



;Get DEC 

;Put "new" FCB into IX 
; & save DEC on dcive 
; Set don't test flags 

; Open the "new" spec 

; Should error here 
or else return 
if "new" is existing 
& we opened it 
If not "file not found" 
then is error 

; Read "old"'s directory 



PUSH 


BC 


LD 


D,H 


LD 


A,L 


ADD 


A, 5 


LD 


E,A 


LD 


HL, NAME $ EXT 


LD 


BC,11 


LDIR 




POP 


BC 


CALL 


@DIRWR 


CALL 


Z, QHITRD 


RET 


NZ 


LD 


D,H 


LD 


E,B 


LD 


HL, NAME $ EXT 


CALL 


HASHNAME 


LD 


(DE) , A 


JP 


@HITWR 



; Save drive spec 

;Xfer buffer high order 

; Pt to filename field 
; Set buffer low order 
; Point to where the 
; new name is stored 
;Move in new name 

; Rewrite the directory 
;Read the HIT 

; Set the buffer high order 
; Set the exact HIT low order 
; This doesn't change C fl 
; Hash the new name 

; Stuff code into HIT 

; Rewrite & exit 



Routine to rename a device 



RENDEV 


PUSH HL 


CALL 


GETDCB 


POP 


IX 


RET 


NZ 


LD 


A,L 


CP 


DCBKL$ 


LD 


A, 40 


RET 


C 


LD 


A, (IX+O) 


CP 


i * i 


JR 


NZ, REN3A 


PUSH 


HL 


CALL 


GETDCB 


POP 


HL 


JR 


Z, REN 3 A 


LD 


BC, 6 


ADD 


HL,BC 


LD 


(HL) , E 


INC 


HL 


LD 


(HL) , D 


XOR 


A 


RET 





; Save new pointer 
/Locate "old" in tables 
/Recover pointer to "new" 
/Back if not in tables 

; Ck if protected device 
; "Protected system device 

; "new" must be a device 

; "illegal file name. . . 
; Save address of "old" 

;Ck if "new" is unused 
; Rcvr address of "old" 

; Point to name field 
; of "old" device 

; Stuff new name into 
; Device Control Block 

; Set Z-flag 



Parameter storage area 



FILEHASH 


DS 


1 


PSWDBUF 


DS 


8 


NAME$EXT 


DS 


8 


FILE$EXT 


DS 


3 


PW$HASH1 


DS 


2 


PW$HASH2 


DS 


2 


DW 





;ERN init 


DIR$INIT 


DB 


0,0,0,0 


LREC$ DS 


1 




LAST EQU 


$ 




IF 


$.GT. 


. DIRBUF$ 



ADISP 'ERROR: Module is too large' 

END IF 

ORG MAXCOR$-2 

DW LAST-SYS2 ; Overlay length 

END SYS 2 



;SYS3/ASM - LS-DOS 6.2 

ADISP '<SYS3 - LS-DOS 6.2> 



*LIST OFF 

*REF ' SYSO/EQU :1 

*LIST ON 

LF EQU 1 

CR EQU 13 

f 

*GET 'COPYCOM:!' 

r 

ORG 1E00H 



;Get SYSO/EQU 



; Copyright message 



SYS 3 


AND 


7 OH 




RET 


Z 




CP 


10H 




JR 


Z, CLOSE 




CP 


2 OH 




JP 


Z,FNAME 




RET 




CLOSE 


LD 


A, (DE) 




BIT 


7, A 




JP 


Z, CLOSDE 




CALL 


CKOPEN@ 




LD 


C, (IX+6) 



; Back on zero entry 

; Jump if close 

; Jump if filespec recover 

; Test for device 

Z,CLOSDEV ; Jump if closing device 

; Test for open file 
;P/u drive # 

Special MINI check drive routine 



PUSH IY 

CALL QGTDCT 

CKAGN CALL QRSLCT 

JP NZ, HOLDUP 

BIT 3, (IY+3) 

JR NZ, SAWBLK 

BIT 4, (IY+4) 

JR NZ, SAWBLK 

BIT 7, (IY+4) 

JR NZ, SAWBLK 



;Save IY 

;Pick up DCT for drive 
;Wait until not busy 
; Go to error handler 
; If hard drive, bypass 

;If "ALIEN" bypass 

;Ck if CKDRV inhibit 
; Go if so 



Test for diskette in drive (no index) 



PUSH DE 

LD D, (IY+5) 

LD E, 

CALL @SEEK 

POP DE 

LD B, 30H 

BLACK CALL QRSLCT 

BIT 1,A 

JR Z, SAWBLK 

DJNZ BLACK 

JP HOLDUP 



;P/u current track 
; Set sector to 
; Do a command 

; Set up count (short) 

; Check for index pulse 
; Test index 
; Saw black, seems OK 



; Close fault handler 
Diskette is there, let 's continue 



SAWBLK 



LD 



POP IY 
B, (IX+7) 



; Restore IY 
;P/u DEC of FPDE 



CALL 


@DIRRD 


RET 


NZ 


BIT 


4, (HL) 


RET 


Z 


PUSH 


HL 


PUSH 


BC 


CALL 


RWRITQ 


POP 


BC 


POP 


HL 


RET 


NZ 


BIT 


6, (IX+O) 


JP 


Z, RCVNO 


INC 


L 


RES 


5, (HL) 


INC 


L 


INC 


L 


LD 


A, (IX+8) 


PUSH 


HL 


CP 


(HL) 


JR 


NZ, CL0S1 


LD 


A, 11H 


ADD 


A,L 


LD 


L,A 


LD 


A, (IX+12) 


CP 


(HL) 


JR 


NZ, CL0S1 


INC 


L 


LD 


A, (IX+13) 


CP 


(HL) 


JR 


NZ, CL0S1 


POP 


AF 


JR 


CL0S2 



;Read the directory 
; Quit if error there 

;Ck for killed file 
;Quit if killed file 



; Write last buffer? 



; Ret on I/O error 

; If user does not have 

; close authority. . . 
; else reset possible 

; file open bit in DIR+1 
; Determine if the EOF 
; byte has been changed 
;P/u EOF byte offset 
; Save ptr to DIR+3 

; Go if moved 



;P/u low-order ERN 
; Go if moved 
;P/u high-order ERN 
; Go if moved 
;Didn 't move 



Routine to change a 3-byte EOF marker 



;Pop DIR+3 

;Xfer the EOF offset 



and the ERN from the FB 



; to the DIR entry 

; If the file was updated 
; then update MOD date 
; else don 't 



CL0S1 POP 


HL 


LD 


A, (IX+8) 


LD 


(HL) , A 


LD 


A, 11H 


ADD 


A,L 


LD 


L,A 


LD 


A, (IX+12) 


LD 


(HL) , A 


INC 


L 


LD 


A, (IX+13) 


LD 


(HL) , A 


BIT 


2, (IX+O) 


JR 


NZ, CL0S3 


JR 


CL0S5 



Three-byte EOF marker did not change 



CL0S2 BIT 2, (IX+O) 

JR NZ, CL0S3 

BIT 6, (IX+O) 

JR NZ, CL0S5 

JR CL0S6 



If file was updated 
then update MOD date 

If close authority then 
write back the DIR 
else continue 



Routine to insert packed date into entry 



CL0S3 PUSH 
LD 
AND 
LD 
INC 
SET 
LD 
LD 
OR 
JR 
SUB 



INC 

LD 

RLCA 

RLCA 

RLCA 

OR 

INC 

LD 

DEC 

INC 

LD 

LD 

LD 

AND 

OR 

LD 

POP 

CL0S4 POP 

CL0S5 PUSH 
CALL 
POP 
RET 

CL0S6 INC 
PUSH 
LD 
SUB 
LD 
BIT 
POP 
JP 
LD 

CL0S7 LD 
INC 
CP 
JR 
LD 
INC 
AND 
INC 
ADD 
LD 



HL 

A,L 

OEOH 

L,A 

L 

6, (HL) 

DE, DATE$ 

A, (DE) 

A 

Z,$+4 

80 



PUSH BC 
LD B,A 



DE 

A, (DE) 



B 
L 

(HL) , A 
L 

DE 

A, (DE) 
B,A 
A, (HL) 
OFOH 
B 

(HL) ,A 
BC 
HL 
HL 

@DIRWR 
HL 
NZ 
L 

HL 
A,L 
15H 
L,A 
7, (HL) 
HL 

NZ, RCVNO 
DE, 
A, (HL) 
L 

OFEH 

NC, CL0S8 
A, (HL) 
L 

1FH 
A 

A,E 
E,A 



; Save ptr to DIR+21 
;Pt to start of dir rec 



Pt to DIR+1 

;Set the MOD flag 
Point to the year 

; If year = 0, then date 
is 00/00/00 

Offset from 1980 

Year-80 -> regB 
Point to day 

; Shi ft day into 3-7 & 

merge the year into 

the lo-order bits 



; Store day /year 
; Point to month 

;P/u dir byte 
; Strip old month 
; Merge month & 

; update the field 

;Rcvr DIR+21 

; Write back DIR entry 

;Pt to DIR+22 which is 
; the 1st extent 

;Back up to DIR+1 

; Test if created 

Bypass if created 
Init gran counter 

;P/u cyl indicator 
Pt to gran alloc 
Extent in use? 
Jump if spare or FXDE 

;P/u granule allocation 
Pt to next extent 
Strip off # of grans & 

adjust for zero offset 
Accumulate the number of 

grans in this extent 



JR 


NC,CL0S7 


INC 


D 


JR 


CL0S7 


CL0S8 JR 


NZ, CL0S9 


LD 


B, (HL) 


CALL 


@DIRRD 


RET 


NZ 


LD 


A,L 


ADD 


A, 16H 


LD 


L,A 


JR 


CL0S7 



;Any previous quantity 



; Found all grans in this 

; extent, ck for FXDE 



; Point to extents in FXDE 



; Go to continue count 



Routine to determine need to deallocate 



CL0S9 PUSH 
LD 
LD 
LD 
CALL 
AND 
PUSH 
ADD 
LD 
JR 
INC 

CL0S1 

INC 

CALL 

XOR 

EX 

SBC 

EX 

POP 

JP 

JP 



HL 

L, (IX+12) 

H, (IX+13) 

A, 8 

QDCTBYT 

1FH 

AF 

A,L 

L,A 

NC, CL0S1 

H 

POP AF 

A 

QDIV1 6 

A 

DE,HL 

HL,DE 

DE,HL 

HL 

Z, RCVNO 

C, RCVNO 



; Save ptr to last extent 
;P/u ending record # 

; Get # sectors/gran 

; Remove other data 
; Save the # 
; Round up to next 
; higher gran 



;Rcvr # sectors/gran 
;Adjust for division 

; Calculate # grans in 
Subtract the # of grans 
used from the # of 
grans allocated in the 
directory, and move DE 
; Rcvr ptr to last extent 

; Jump if same quantity 
; Jump if now more 



use 



Need to deallocate space 

;Read GAT 
;B/u 



CALL 


@GATRD 


RET 


NZ 


JR 


BAKUP 


CL0S11 


PUSH DE 


LD 


A, (HL) 


AND 


OEOH 


RLCA 




RLCA 




RLCA 




LD 


E,A 


LD 


A, (HL) 


AND 


1FH 


ADD 


A,E 


LD 


E,A 


LD 


A, 8 


CALL 


QDCTBYT 


RLCA 




RLCA 




RLCA 





to last used extent 
; Sv count of excess grans 
;P/u alloc info 

; Get starting relative 

; gran into reg-E 



; # of contiguous grans 
; Remove unneeded data 
; Calculate ending 
; relative gran # 
;P/u the # of grans 

; per cylinder 



AND 
INC 
LD 
LD 

CALL 
BIT 
LD 
JR 

RLCA 
CALL 
DEC 
ADD 
LD 

PUSH 
PUSH 
LD 
LD 
LD 
LD 
CALL 
LD 
POP 
POP 
INC 
DEC 
LD 
INC 
AND 
POP 
DEC 
JR 
BAKUP LD 
DEC 
LD 
DEC 
LD 
AND 
CP 
JR 
XOR 
LD 
BIT 
JR 
LD 

CALL 
RET 
LD 
AND 
INC 
LD 
LD 
LD 
CALL 
RET 
LD 
LD 
CALL 



7 

A 

D,A 

A, 4 

0DCTBYT 

5, A 

A,D 

Z,$+3 

QDIV8 
L 

A, (HL) 
D,A 
HL 

BC 

H, DIRBUF$>8 

L,D 

B, (HL) 
A,E 
CALCBIT 

(HL) , B 
BC 
HL 
L 

(HL) 
A, (HL) 
A 

1FH 
DE 
DE 

NZ, CL0S12 
(HL) , OFFH 
L 

(HL) , OFFH 
L 

A,L 
1FH 
15H 

NZ, CL0S12 
L 

L,A 
7, (HL) 
Z, CLOS12 
(HL) , 
@DIRWR 
NZ 
A,B 
OEOH 
A 

L,A 
A, (HL) 
(STUFDEC+1) , 
QHITRD 
NZ 
L,B 
(HL) , 
@HITWR 



;Move into bits 0—2 

; Adjust for zero offset 

; Save count 



2-sided disk? 
Rcvr count 
Bypass if 1-sided 
Double count 
A=quotient, E=remainder 
Pt to starting cylinder 

; Bump cyl pointer by how 

many excessive cyls to 

start from the rear 

;Pt to that cyl ' s GAT 

;P/u the GAT allocation 

; Deallocate a gran 
; Replace GAT byte 



Repoint to alloc info 
Reduce by 1 gran 

; Get info on contig gran 
Adj for zero offset 
Mask off unneeded 
Rcvr excess gran count 

and count down 
Go if extent still used 

else extent is spare 



; Check if backed all the 
; way thru this entry 

; Go if not 

; Deallocate this FXDZ 

;Was it the FPDE? 
; Bypass if FPDE 

; Show dir is spare 
; Write back 

;P/u deallocated DEC 

;Pt to DIR+1 

;P/u previous DEC 
A ; Save in opcode ahead 

;Read the HIT 

; Point to deallocated HIT 

/Deallocate space in HIT 
; Write back 



RET 


NZ 


STUFDEC 


LD B, 


CALL 


QDIRRD 


RET 


NZ 


LD 


A,B 


OR 


1FH 


LD 


L,A 


LD 


(HL) , OFFH 


DEC 


L 


LD 


(HL) , OFFH 


DEC 


L 


PUSH 


HL 


CALL 


@DIRWR 


POP 


HL 


RET 


NZ 


CL0S12 


LD A,D 


OR 


E 


JP 


NZ,CL0S11 


CALL 


QDIRWR 


JR 


Z,CLOS13 


CP 


15 


RET 


NZ 


JR 


RCVNO 


r 

CL0S13 


CALL @GATWR 


RET 


NZ 



;P/u previous DEC 
; Read its dir entry 



;Pt to end of entry 

; Erase pointer 

to deallocated FXDE 

; Point to previous extent 
; Save pointer 

; Write back 



; Loop if still more to 
deallocate 



; Go if no write error 
; "write protected 
; Bad if not 



; Write back the altered GAT 



Routine starts to recover file spec 



RCVNO LD 
LD 
XOR 
AND 
LD 
CALL 
RET 
PUSH 
POP 

RCVNAM 

AND 

OR 

LD 

LD 

LD 

AND 

OR 

LD 

PUSH 

LD 

RCVN1 LD 
CP 
JR 
LD 
INC 
INC 
DJNZ 

RCVN2 POP 



A, (IX+7) 
C, (IX+6) 
B 

1FH 

B, (IX+7) 
NZ, @DIRRD 
NZ 

IX 
DE 
LD A,C 

7 

'0' 

(RCVN5+1) ,A 
H, SBUFF$>8 
A,B 
OEOH 
5 

L,A 
HL 
B, 8 
A, (HL) 

f f 

Z, RCVN2 
(DE) , A 
HL 
DE 

RCVN1 
HL 



P/u DEC of FPDE 

P/u drive 

Check if its directory 

record is resident 
P/u DEC of FPDE 
; Get FPDE dir if needed 

; Transfer FCB to DE 



; Convert drive to ASCII 



;Pt to DIR+5 (name) 



; Save name start posn 
; Init 8 chars max 

;Move filename from 
; direc to FCB 



; Loop up to 8 





LD 


A,L 




ADD 


A, 8 




LD 


L,A 




LD 


A, (HL) 




CP 


f f 




JR 


Z, RCVN4 




LD 


A, '/' 




LD 


(DE) , A 




INC 


DE 




LD 


B,3 


RCVN3 


LD 
CP 


A, (HL) 

f f 




JR 


Z, RCVN4 




LD 


(DE) , A 




INC 


HL 




INC 


DE 




DJNZ 


RCVN3 


RCVN4 


LD 


A, ' : ' 




LD 


(DE) , A 




INC 


DE 


RCVN5 


LD 


A,0 




LD 


(DE) , A 




INC 


DE 




LD 


A,03H 




LD 


(DE) , A 




XOR 


A 




RET 





;Pt to extension 



; Jump if none 

; Stuff separator into FCB 

; Init 3-char extension 
; Stuff the ext 
into FCB 



; Stuff drive indicator 

;P/u drive in ASCII 
; & stuff it 

; Close FCB with ETX 

; Set Z for no error 



Routine to recover the filespec 



FNAME PUSH HL 
PUSH DE 



Calculate the 
= (#sectors x 



ONESID 



LD 


A, 7 


CALL 


@DCTBYT 


LD 


D,A 


AND 


1FH 


LD 


E,A 


INC 


E 


XOR 


D 


RLCA 




RLCA 




RLCA 




INC 


A 


CALL 


QMUL8 


LD 


E,A 


LD 


A, 4 


CALL 


QDCTBYT 


BIT 


5, A 


LD 


A,E 


JR 


Z, ONESID 


ADD 


A, A 


) 


SUB 2 


LD 


D,A 



number of directory sectors 
#heads) - 2 for GAT £ HIT 

; Get highest # sector 

; Store heads & sectors 

/Mask for # sectors 

; & stuff into E 

; Bump for offset 

; Rcvr # heads, destroy # 

/Rotate into bits 0-2 



;Bump for offset 
/Multiply sectors x heads 
; Now check double bit 



; 2-sided if set 

; Go if not set 

; else double value 

; Reduce for GAT & HIT 





LD 


A,B 




AND 


1FH 




CP 


D 




JR 


C, FNAM1 




LD 


A, 16 




OR 


A 




JR 


FNAM2 


FNAM1 


POP 


DE 




PUSH 


DE 




CALL 


QDIRRD 




CALL 


Z, RCVNAM 


FNAM2 


POP 


DE 




POP 


HL 




RET 





; Calc req sector # 



; "Illegal logical file 



; Re get Cyl /Sec 



;Rcvr the filespec 



Close a logical device 



CLOSDEV 


CP 10H 


LD 


A, 38 


RET 


NZ 


CALL 


LNKFCB@ 


LD 


C, (IX+6) 


LD 


B, (IX+7) 


LD 


(IX+O), '*' 


LD 


(IX+1) ,C 


LD 


(IX+2) , B 


LD 


(IX+3) , 3 


XOR 


A 


RET 





; If not open device, 
; return "file not open. . 

;Link to FCB 
; Get device name 

; Stuff device indicator 
; Stuff 1st char of name 
; Stuff 2nd char of name 
; Terminate with ETX 



Calculate GAT bit to deallocate 



CALCBIT 


AND 7 ;Make binary bit # into 


RLCA 


; the proper RES 


RLCA 


; opcode 


RLCA 




OR 


8 OH 


LD 


(CALC 1+1) ,A 


CALC1 RES 


0,B ; Reset bit in GAT 


RET 





User removed disk with an open file 



HOLDUP 


PUSH HL 


PUSH 


DE 


LD 


HL, HOLDUP$ 


CALL 


@DSPLY 


CALL 


QCKBRKC 


WAITING 


CALL @KBD 


JR 


NZ, WAITING 


CP 


CR 


JR 


Z, TRYNOW 


CALL 


QCKBRKC 


JR 


Z, WAITING 


ABRT POP 


DE 


POP 


HL 


POP 


IY 



;Pt to message 

; Display to console 
; Clear out break bit 
; Scan the keyboard 

; Keep looking 

; Check for <ENTER> 

; Check for a break 



; Restore from above 



LD 

OR 

RET 
TRYNOW 

POP 

JP 
HOLDUP $ 

DEFB 
LAST EQU 

IF 

ADISP 

END IF 

ORG 

DW 



A, 32 ; Show illegal drive # 

A ; Set NZ condition 

; Go back now 
POP DE 
HL 

CKAGN ; Try checking again 

DEFB LF, '** CLOSE FAULT ** Drive not ready, 

'<ENTER> to retry, <BREAK> to abort ', CR 
$ 
$.GT.DIRBUF$ 

'ERROR: Module too big' 



MAXCOR$-2 
LAST-SYS3 



; Overlay length 



END 



SYS 3 



;SYS4/ASM - LS-DOS 6.2 

AD ISP '<SYS4 - LS-DOS 6.2>' 
LF EQU 1 

CR EQU 13 

*LIST OFF ;Get SYSO/EQU 

*REF 'SYSO/EQU:!' 
*LIST ON 
*GET 'COPYCOM:!' ; Copyright message 



ORG 



1E00H 



SYS4 JP 



BEGIN 



Sentence table - Must be totally within one page 



MSGO DB 1,2+80H 

; no error 

MSG1 DB 4, 2, 5, 6, 9+80H 

; parity error during header read 

MSG2 DB 8, 2, 5, 9+80H 

; seek error during read 

MSG3 DB 11,7,5, 9+80H 

; lost data during read 

MSG4 DB 4, 2, 5, 9+80H 

; parity error during read 

MSG5 DB 7,27, 12,44,5, 9+80H 

; data record not found during read 

MSG6 DB 13, 9, 15,7,27+80H 

; attempted to read system data record 

MSG7 DB 13, 9, 14, 7 , 27+80H 

; attempted to read locked/deleted data record 

MSG8 DB 42, 12 , 51+OCOH 

; device not available 

MSG9 DB 4,2,5, 6, 10+80H 

; parity error during header write 

MSG10 DB 8 , 2 , 5 , 10+80H 

; seek error during write 

MSG11 DB 11, 7, 5, 10+80H 

; lost data during write 

MSG12 DB 4,2,5,10+80H 

; parity error during write 

MSG13 DB 7,27, 12,44,5, 10+80H 

; data record not found during write 

MSG14 DB 10,21, 18, 19, 48+80H 

; write fault on disk drive 

MSG15 DB 10,22,19+800. 

; write protected disk 

MSG16 DB 23,24,26,25+800. 

; illegal logical file number 

MSG17 DB 16,9,2+80H 

; directory read error 

MSG18 DB 16,10,2+80H 

; directory write error 

MSG19 DB 23,26, 41+0C0H 

; illegal file name 

MSG20 DB 34,9,2+80H 

; gat read error 



MSG21 


DB 


r 

MSG22 


DB 


r 

MSG23 


DB 


r 

MSG24 


DB 


r 

MSG25 


DB 


MSG26 


DB 


r 

MSG27 


DB 


r 

MSG28 


DB 


r 

MSG29 


DB 


r 

MSG30 


DB 


MSG31 


DB 


MSG32 


DB 


MSG33 


DB 


r 

MSG34 


DB 


MSG35 


DB 


MSG36 


DB 


r 

MSG37 


DB 


r 

MSG38 


DB 


MSG39 


DB 


MSG40 


DB 


r 

MSG41 


DB 


r 

MSG42 


DB 


f 

MSG43 


DB 


r 

MSG44 


DB 


MSG45 


DB 


r 

BEGIN 


AND 




RET 




PUSH 




LD 




LD 




POP 




LD 



34,10,2+80H 

gat write error 

35 , 9 , 2+80H 

hit read error 

35,10,2+80H 

hit write error 

26,12,45,16+OCOH 

file not in directory 

26,46,49+OCOH 

file access denied 

1,16,39,51+OCOH 

directory space full 

19,39,47+OCOH 

disk space full 

28,29,26,32+80H 

end of file encountered 

27,25,30,29, 31+80H 

record number out of range 

16,47,52,26+80H 

directory full — can't attend file 

50, 12,44+OCOH 

program not found 

23,48,25+OCOH 

illegal drive number 

1,42,39,51+OCOH 

no device space available 

38.26, 43, 2+80H; 

load file format error 

17,21+80H 

memory fault 

13,38,9,40,17+80H 

attempted to load read only memory 

23,46,13,22,26+80H 

illegal access attempted to protected file 

26, 12,53+OCOH 

file not open 

42,45,54+80H 

device in use 

22,15,42+80H 

protected system device 

26,57 ,53+OCOH 

file already open 

24.27, 58, 53, 21+OCOH 

logical record length open fault 

56,20,2+80H 

SVC parameter error 

20,2+80H 

Parameter error 

37,2,33+80H 

unknown error code 

70S. ; What's the entry? 

Z ;Back on zero 

AF 

A, (LSVC$) ;Grab the last SVC 

(SVSVC+1) ,A ; and store for later 
AF 

(EXTEND+1) ,HL ; Value if extended error 



EX 
LD 
POP 
POP 
EX 
LD 
EX 
PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
LD 
AND 
XOR 
AND 
LD 

PUSH 
AND 
LD 
LD 
BIT 
JP 
BIT 
JR 
LD 
JR 
SET 
POP 
SET 
PUSH 
ERROA BIT 
LD 
JR 

PUSH 
LD 
LD 

LDIR 
POP 
EX 
LD 
LD 
INC 
SUB 
JR 
INC 
ADD 
LD 
INC 
LD 
INC 
LD 
INC 
EX 
PUSH 
LD 



ERRO 



ERR1 



(SP) , HL 

(ERR7+1) ,HL ; 
HL 
AF ; 

(SP) , HL 

(USRET+1) ,HL 

(SP) , HL 
HL ; 

DE 
BC 
HL, (SVCRET$) 

(SVRET+1) ,HL 
B,A 

A, (SFLAG$) ; 
01000000B 
B 
B 

B,A 
AF 
3FH 
C,A 
HL, CFLAG$ 

6, (HL) 
NZ, ERR 6 A 

7, (HL) 
NZ, ERRO 
DE, SBUFF$ 
ERROA 
6,B 
AF 
6, A 
AF 
6,B 
B,0 

NZ, ERR2 
BC 

HL, ERRMSG 
C, MLEN 

BC 

DE,HL 

A,C 

(HL) , 2FH 

(HL) 

10 

NC, ERR1 

L 

A, ' O'+IO 

(HL) , A 
L 

OIL), ', ' 
L 

(HL) , ' • 
L 

DE,HL 
BC 
HL, ERRMSG 1 



; Grab return address 
& stuff it 

Pop off the error code 

; Get user ret address 
; for long dsply 

Save regs 



;Grab last SVC return 
; and save for display 

Test expanded-error flag 
flag bit in system flag 



Xfer the result to B 

& save for later 
Strip all but error # 
Place error code -> C 
If system error suppress 
; flag is set, don't 
display error message 

; If error-to-buffer is 
; set, put to user bufr 

Branch around force 
Force buffer to abbrev 



; Expanded error display? 

; Jump if abbreviated 

;Pt to "< ERRCOD 

; & move to buffer 

; Buffer ptr to HL 
• Error code to Accum 
; Init for digit conv 
;Bump ASCII digit 
; count by 10 

; Keep bumping 10 's digit 
; Bump buffer ptr 
; Convert rmdr to unit's 

; & place in buffer 
; Bump to next pos 
; Stuff a comma & bump 

; & a space 

; Buffer ptr back to DE 

; "Returns to X' " 





LD 


BC,M1LEN 




LDIR 






EX 


DE,HL 


USRET 


LD 


DE, $-$ 




CALL 


@HEX1 6 




LD 


A,27H 




LD 


(HL),A 




INC 


HL 




LD 


(HL) , LF 




INC 


HL 




POP 


BC 




BIT 


6,C 




JR 


NZ, ERR 6 




LD 


(HL) , '*' 




INC 


HL 




LD 


(HL) ,'*' 




INC 


HL 




LD 


(HL) , ' ' 




INC 


HL 


ERR 6 


EX 


DE,HL 


ERR2 


LD 


A,C 




CP 


63 




JR 


NZ, ERR2A 



;HL back to buffer 

; User ret address 



; End with a linefesd 



; Extended error? 
; Go if not 
; Make long msg look nice 



; DE back to nxt buff line 
; "Extended error"? 



; Do extended error only 

r 

PUSH DE ;Save buffer ptr 

EXTEND LD DE, $-$ ; Ext ' d err value from HL 

LD HL,EXT$ERR+26 

CALL @HEX1 6 

LD HL,EXT$ERR ; Point to error msg 

POP DE ; Recover buffer 

PUSH HL ;Save msg start 

PUSH BC 

LD BC,M2LEN ; Len of error 

;Move into buffer 



LDIR 

POP BC 

LD HL, CFLAG$ 

BIT 7, (HL) 

RES 7, (HL) 

POP HL 

CALL Z, QLOGOT 

JR ERR 6 A 



; See if to user buffer 
; Dont logot if so 



; and exit 
Do regular (non— extended) error 



ERR2A LD A, 45 

CP C 

PUSH DE 

JR NC, ERR3 

LD C,A 

ERR3 LD HL, CODTAB 

ADD HL, BC 

LD L, (HL) 

LD H,MSG0>8 



; If error code is > 43, 
; then set to 44 (mac) 
; Save ptr to 1st char 



;Pt to start of code 

; address table & index 

;P/u lo-order vector 
; Set hi-order vector 



HL now points to sentence table 



ERR5 



LP1 



LD 


A, (HL) 


AND 


3FH 


LD 


B,A 


PUSH 


HL 


LD 


HL, WORDS 


LD 


A, (HL) 


RLCA 




INC 


HL 


JR 


NC, LP1 


DEC 


B 


JR 


NZ, LP1 



;P/u word offset 
& strip any flags 
•Xfer word # to reg B 
: Save sentence pointer 
: Dictionary start 

; Scan through the table 
counting words (bit 7 
denotes word end) 

; until requested word 
is reached 



Found start of a desired word 



LP2 LD 


A, (HL) 


RLCA 




SRL 


A 


LD 


(DE) , A 


INC 


HL 


INC 


DE 


JR 


NC, LP2 


LD 


A, ' ' 


LD 


(DE) , A 


INC 


DE 


POP 


HL 


LD 


A, (HL) 


INC 


HL 


RLCA 




JR 


NC, ERR5 


EX 


(SP) , HL 


LD 


A, (HL) 


RES 


5, A 


LD 


(HL),A 


POP 


HL 


POP 


AF 


PUSH 


AF 


PUSH 


HL 


LD 


A,CR 


LD 


(DE) , A 


LD 


HL, CFLAG$ 


BIT 


7, (HL) 


RES 


7, (HL) 


LD 


HL, SBUFF$ 


CALL 


Z, QLOGOT 


POP 


HL 


POP 


AF 


PUSH 


AF 


BIT 


6, A 


CALL 


Z, DSPSPEC 


ERR6A POP 


AF 


POP 


BC 


POP 


DE 


POP 


HL 


OR 


A 


ERR7 JP 


M, 


JP 


(3 ABORT 



; Transfer word until 
bit 7 set (last char) 
while resetting bit-7 

; Stuff letter of word 
& bump pointers 



;Move a space into buffer 



; Rcvr ptr to sentence 

;P/u this word byte 

;Was this the last word? 

; Loop if still more to go 
; Get ptr to 1st char 

; Set it to Upper-Case 

; Get back sentence ptr 
; Rcvr error code 

; Save sentence ptr 

; Stuff end-of-line 
; If to user buffer, 

then don ' t LOGOT 

; Display the line 



; Rcvr word index 

; Test if a disk error 
; Get filespec if it is 



; Ret to user if bit 7 
; of error code is set 
; else abort 



Routine to display the filespec 



DSPSPEC PUSH IX 

LD IX, (JDCB$) 

DEC HL 

BIT 6, (HL) 

JR NZ, DSPC2 

LD C, (IX+6) 

LD B, (IX+7) 

BIT 7, (IX+O) 

JR NZ, RCVSPEC 

LD HL, OPN$DCB 

DSPC1 LD A, C 

CP 'A' 

JR C, DCBUNK 

CP 'Z'+l 

JR NC, DCBUNK 

LD A,B 

CP '0' 

JR C, DCBUNK 

CP 'Z'+l 

JR NC, DCBUNK 

LD (0PN$DCB+1 8) , BC 

DSPC1A EQU $-2 

POP IX 

JR RSPC6 ;Go display it 



;P/u FCB vector 



;Device 1st char or drive 
; Device 2nd char or drive 
; Test if file or device 
; Jump if it is a file 

; Possible devspec, 1st char 

; C=do unknown 

;Again, go if bunk 
; Check 2nd character 



; Stuff the device name 



DCBUNK 



POP 
JR 



LD 
IX 
RSPC6 



HL, UNK$TYP 



DSPC2 LD 
LD 
LD 
LD 
LD 
LD 
CP 
JR 

PUSH 
POP 
LD 
LD 

DSPC3 LD 
CP 
JR 
CP 
JR 
OR 
JR 
CALL 
JR 
LD 
INC 
INC 
DJNZ 



C, (IX+1) ;P/u 1st char or vector 

B, (IX+2) ;P/u 2nd char or vector 

A, (IX+O) 
HL, DEV$NAM 

(DSPC1A) , HL ; Change dsply message 
HL, DEV$EQ 

'*' ;IF '*', go to device 

Z, DSPC1 

IX ; else assume a file 

HL 
DE,FILE$EQ+7 ; Init "<file=. . . 



B,24 
A, (HL) 
3 

Z, DSPC3A 
CR 

Z, DSPC3A 
A 

Z, DSPC3A 
CHKASC 
C, DCBUNK 
(DE) , A 
DE 
HL 
DSPC3 



; Max filespec 

;P/u filespec char 
;ETX? 

;EOL? 



; Zero ok terminator too 

; Check if an ASCII char 
; and abort if not 



; Loop until end 



DSPC3A LD HL, FILE$EQ 

JR. RSPC5 

; Routine to get recover the fdLespec 

r 

RCVSPEC LD A, C 

ADD A, 30H ;Conv drive # to decimal 

CP '0' ; Valid drive? 

JR C, DCBUNK 

CP '8' 

JR NC, DCBUNK 

LD (0PN$FCB+1 6) , A 

LD A,B ;DEC into Accum 

LD HL,0PN$FCB+23 ; Pt into msg string 

CALL @HEX8 ; and convert it 

EX DE,HL ;DE back to buff end 

LD HL, OPN$FCB 

INC DE 

RSPC5 LD A,CR ; Close with EOL 

LD (DE) , A 

POP IX 

RSPC6 CALL QLOGOT ; Log it 

r 

; Build the SVC info line 

r 

LD DE, LILBUF ; Tempy for hexdec 

SVSVC LD A,$-$ ;P/u stored last SVC 

LD L,A 

LD H, ; into HL for conv 

CALL QHEXDEC 

LD DE,SVC$NUM+11 

CALL EDEC 

LD A, 3 ; Then put ETX 

LD (DE) , A 

LD HL,SVC$RET+16 ;Now, do last svc return 

SVRET LD DE, $-$ 

CALL QHEX1 6 

LD HL, SVC$NUM 

CALL QLOGOT 

LD HL, SVC$RET 

JP QLOGOT ;Log it 

r 

; Routine to check for vaild chars 

r 

;Xfer until 1st space 
;Cy fig on ret = Bad Char 



CHKASC 


LD A, (. 


CP 


f f 


RET 


C 


CP 


' : '+1 


JR 


NC, CKASC1 


JR 


CKASC2 


CKASC1 


CP 'A' 


RET 


C 


CP 


'Z'+l 


CKASC2 


CCF 


RET 





EDEC 


LD 


HL, LILBUF 


; Pt to conved decimal nun 


EDI 


LD 


A, (HL) 






OR 


A 






RET 


Z 






CP 


f f 






INC 


HL 






JR 


Z,ED1 






LD 


(DE),A 


; Store valid digit 




INC 


DE 






JR 


EDI 





EXT$ERR DB ' ** Extended error, HL = X',27H, ' xxxx ' , 27H, CR 

M2LEN EQU $-EXT$ERR 

ERRMSG DB LF , ' ** Error code = ' 

MLEN EQU $-ERRMSG 

ERRMSG1 DB 'Returns to X',27H 

M1LEN EQU $-ERRMSGl 

DEV$EQ DB ' Device = * ' 

DEV$NAM DB ' XX ' , CR 

FILE$EQ DB 'File = NNNNNNNN/EEE . PPPPPPPP : D ' , CR 

OPN$FCB DB 'Open FCB, Drive=n, DEC= ' , CR 

OPN$DCB DB 'Open DCB, Device=*xx ' , CR 

UNK$TYP DB 'Unknown FCB/DCB' , CR 

SVC$NUM DB 'Last SVC = nnn',3 

SVC$RET DB ' , Returned to X',27H, ' xxxx ' , 27H, CR 



LILBUF 



DB 



DS 




; Table points to low-order bytes of messages 

r 

CODTAB DB MSGO& OFFH, MSG1 & OFFH, MSG2&0FFH, MSG3& OFFH 

DB MSG4& OFFH, MSG5 & OFFH, MSG 6& OFFH 

DB MSG7& OFFH, MSG8&0FFH, MSG9& OFFH 

DB MSG1 OS OFFH, MSG1 1 & OFFH, MSG12& OFFH, MSG1 3& OFFH 

DB MSG14&0FFH, MSG15& OFFH, MSG1 6&FFH, MSG1 7& OFFH 

DB MSG1 8& OFFH, MSG1 9& OFFH, MSG20& OFFH, MSG21 & OFFH 

DB MSG22& OFFH, MSG23& OFFH, MSG24&0FFH, MSG25& OFFH 

DB MSG2 6& OFFH, MSG2 7& OFFH, MSG28& OFFH, MSG29& OFFH 

DB MSG30& OFFH, MSG31 & OFFH, MSG32& OFFH, MSG33& OFFH 

DB MSG34&0FFH, MSG35& OFFH, MSG36& OFFH, MSG3 7& OFFH 

DB MSG38& OFFH, MSG39& OFFH, MSG4 0& OFFH, MSG41& OFFH 

DB MSG42& OFFH, MSG43& OFFH, MSG44&0FFH, MSG45& OFFH 

r 

; Word dictionary 



WORDS DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 



'R' !80H 
'n ' , 'o' !80H 
'erro ' , 'r ' !80H 
'o' !80H 

'parit ' , 'y' !80H 
'durin' , 'g' !80H 
'heade' , 'r' !80H 
'dat ' , 'a ' !80H 
'see' , 'k' !80H 



;l 



; Start table with bit 7 

;2 

; 3 extra word 

;4 
;5 
;6 

; 7 

;8 



LAST 



DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

DB 

EQU 

IF 

ADISP 

END IF 

ORG 

DW 



' !80H 
'd' !80H 



rea ' , 'd' !80H 

writ ' , 'e ' !80H 

los' , 't ' !80H 

no' , 't ' !80H 

attempted t ' , '< 

locked/delete ' , 

syste', 'm' !80H 

director' , 'y' !80H 

memor' , 'y' !80H 

o' , 'n' !80H ;18 

dis' , 'k' !80H 

paramete ' , 'r' !80H 

faul ', 't ' !80H 

protecte' , 'd' !80H 

illega ' , '1 ' !80H ; 23 

logica ' , '1 ' !80H ;24 

numbe' , 'r' !80H 

fil ' , 'e' !80H 

recor' , ' d' !80H 

en ' , 'd' !80H 

o' , <f !80H ,29 

ou ', 't ' !80H 

rang' , 'e' !80H 

encountere' , 'd'!80H 

cod' , 'e' !80H 

GA' , 'T' !80H 

HI' , 'T' !80H 

y' <80H 

unknow' , 'n' !80H ; 37 

loa ' , 'd' !80H 

spac' , 'e' !80H 

onl ' , 'y ' !80H 

nam' , 'e ' !80H 

devic' , 'e' !80H 

forma' , 't ' !80H 

foun ' , 'd' !80H 

i ' , 'n' !80H ;45 

acces' , ' s ' !80H 

ful ', '1 ' !80H 

driv' , 'e ' !80H 

denie' , 'd' ! 80H 

- ' 'm' !80H 

e' n 
' 't exten 



'progra ' , 'm' !80H ; 
'availabl ' , 'e' !80H 



;9 

;10 
11 
12 
13 
14 
15 
16 
27 

19 

;20 

21 

22 



;25 

;26 

27 

,28 

;30 
;31 
;32 
;33 
;34 

;35 
;36 

38 
39 
40 
41 
;42 
;43 
44 

;46 
;47 
;48 
;49 



- can 
ope 
us ' 



'n ' !80H 
, 'e' !80H 
o' , 'r' !80H 
SV , 'C !80H 
alread' , 'y' !80H 
lengt ' , ' h ' !80H 



;50 

;5i 

d' !80H 

;53 
;54 

56 

;58 



;55 
;57 



$.GT.DIRBUF$ 
'ERROR: Module too big' 



;52 



MAXCOR$-2 
LAST-SYS4 



; Overlay length 



END SYS4 



;SYS5/ASM - LS-DOS 6.2 

AD ISP '<SYS5 - LS-DOS 6.2>' 
*LIST OFF ;Get SYSO/EQU 

*REF 'SYSO/EQU:!' 
*LIST ON 
*GET 'COPYCOM-.l' ; Copyright message 

*GET 'SYS5A:1' 

END SYS 5 



; SYS5/EQU - Equates from cross reference of SYS5 
ADISP ' <SYS5/EQU> ' 

r 

$?1 EQU 1E32H 

$?10 EQU 1F1DH 

$?11 EQU 1F2EH 

$?12 EQU 1F38H 

$?13 EQU 1F8FH 

$?14 EQU 1F9BH 

$?15 EQU 1F9FH 

$?16 EQU 1FA4H 

$?17 EQU 1FC5H 

$?18 EQU 1FDFH 

$?19 EQU 200FH 

$?2 EQU 1E37H 

$?20 EQU 2057H 

$?21 EQU 205CH 

$?22 EQU 2061H 

$?23 EQU 2062H 

$?24 EQU 2066H 

$?25 EQU 20A6H 

$?26 EQU 20A9H 

$?2 7 EQU 20AAH 

$?28 EQU 20B7H 

$?28A EQU 20F1H 

$?29 EQU 20F6H 

$?3 EQU 1E49H 

$?30 EQU 20F9H 

$?31 EQU 20FCH 

$?32 EQU 2102H 

$?33 EQU 210BH 

$?34 EQU 2117H 

$?35 EQU 2 11 AH 

$?36 EQU 2180H 

$?37 EQU 218EH 

$?38 EQU 219 AH 

$?39 EQU 219CH 

$?4 EQU 1EB4H 

$740 EQU 21BFH 

$?41 EQU 21C3H 

$?42 EQU 21C7H 

$?43 EQU 21CAH 

$?44 EQU 21E1H 

$?45 EQU 21EBH 

$746 EQU 2223H 

$?4 7 EQU 222BH 

$?48 EQU 223BH 

$?5 EQU 1EC4H 

$?6 EQU 1EC5H 

$?8 EQU 1EEEH 

$?9 EQU 1F16H 

$A1 EQU 03B7H 

$A2 EQU 03B8H 

$A3 EQU 03B9H 

$CKEOF EQU 147 OH 

@$SYS EQU 08F0H 

@@1 EQU OOOOH 



@@2 EQU 


OOOOH 




@@3 EQU 


OOOOH 




@@4 EQU 


OOOOH 




@ABORT 


EQU 


1B08H 


QADTSK 


EQU 


1CDAH 


@BANK EQU 


0877H 




@BKSP EQU 


1486H 




QBREAK 


EQU 


196FH 


QBYTEIO 


EQU 


1300H 


@CHNIO 


EQU 


0689H 


QCKBRKC 


EQU 


0553H 


@CKDRV 


EQU 


1993H 


QCKEOF 


EQU 


158FH 


QCKTSK 


EQU 


1CF5H 


QCLOSE 


EQU 


1999H 


@CLS EQU 


0545H 




@CMNDI 


EQU 


197 EH 


@CMNDR 


EQU 


197BH 


@CTL EQU 


0623H 




QDATE EQU 


07A8H 




QDBGHK 


EQU 


199FH 


@DCINIT 


EQU 


19C0H 


@DCRES 


EQU 


19C4H 


@ DC STAT 


EQU 


19B5H 


QDCTBYT 


EQU 


1A2BH 


@ DEBUG 


EQU 


19A0H 


QDECHEX 


EQU 


03E1H 


QDIRCYL 


EQU 


18F7H 


QDIRRD 


EQU 


18BBH 


@DIRWR 


EQU 


1803H 


@DIV1 6 


EQU 


06E3H 


@DIV8 EQU 


192 7H 




QDODIR 


EQU 


19AFH 


QDOKEY 


EQU 


19A9H 


@DSP EQU 


0642H 




QDSPLY 


EQU 


052DH 


QERROR 


EQU 


1B0FH 


QEXIT EQU 


1B0BH 




@FEXT EQU 


1984H 




QFLAGS 


EQU 


196AH 


QFNAME 


EQU 


199CH 


gFRENCH 


EQU 


OOOOH 


QFSPEC 


EQU 


1981H 


@GATRD 


EQU 


1874H 


QGATWR 


EQU 


1875H 


@ GERMAN 


EQU 


OOOOH 


@GET EQU 


0638H 




QGTDCB 


EQU 


1990H 


QGTDCT 


EQU 


1A1EH 


QGTMOD 


EQU 


19B2H 


QHDFMT 


EQU 


19E4H 


@HEX1 6 


EQU 


07BDH 


@HEX8 EQU 


07C2H 




QHEXDEC 


EQU 


06F6H 


@HIGH$ 


EQU 


1948H 


QHITRD 


EQU 


1897H 


QHITWR 


EQU 


1898H 



@HZ50 EQU 

@ICNFG 

@INIT EQU 

@INTL EQU 

@IPL EQU 

@JCL EQU 

@KBD EQU 

@KEY EQU 

@ KEY IN 

QKITSK 

QKLTSK 

@LOAD EQU 

@LOC EQU 

@LOF EQU 

@LOGER 

@LOGOT 

@M0D2 EQU 

QM0D4 EQU 

@MSG EQU 

QMUL1 6 

@MUL8 EQU 

@NMI EQU 

@OPEN EQU 

@ OP REG 

QPARAM 

QPAUSE 

@PEOF EQU 

@POSN EQU 

@PRINT 

@PRT EQU 

@PUT EQU 

QRAMDIR 

@RDHDR 

QRDSEC 

@RDSSC 

@RDTRK 

@READ EQU 

QREMOVE 

(3 RENAME 

@REW EQU 

QRMTSK 

QRPTSK 

@RREAD 

QRSLCT 

QRSTOO 

QRST08 

QRST10 

QRST18 

QRST20 

QRST28 

QRST30 

QRST38 

@RSTNMI 

@RSTOR 

@RSTREG 

@RUN EQU 

@RWRIT 



OOOOH 

EQU 0086H 

198DH 

OOOOH 

1BF2H 

063 OH 

0635H 

0628H 

EQU 0585H 

EQU 0089H 

EQU 1CD0H 

1B38H 

14B3H 

14DEH 

EQU 0503H 

EQU 0500H 

OOOOH 

OFFFFH 

0530H 

EQU 06C9H 

190AH 

0066H 

198 AH 

EQU 0084H 

EQU 1987H 

EQU 0382H 

14A2H 

1434H 

EQU 0528H 

063DH 

0645H 

EQU 1 9ACH 

EQU 19D8H 

EQU 1 9F4H 

EQU 18D8H 

EQU 19E0H 

1513H 

EQU 19A6H 

EQU 1996H 

149BH 

EQU 1CD7H 

EQU 1CEBH 

EQU 1 4 13H 

EQU 19D4H 

EQU OOOOH 

EQU 0008H 

EQU 001 OH 

EQU 0018H 

EQU 002 OH 

EQU 0028H 

EQU 0030H 

EQU 0038H 

EQU 0FE9H 

EQU 1 9C8H 

EQU 0680H 

1B1DH 

EQU 13ADH 



QSEEK EQU 


19D0H 




QSEEKSC 


EQU 


1421H 


@SKIP EQU 


1430H 




QSLCT EQU 


19BCH 




@SOUND 


EQU 


0392H 


QSTEPI 


EQU 


19CCH 


@TIME EQU 


078DH 




@USA EQU 


OFFFFH 


QVDCTL 


EQU 


0B99H 


QVDCTL3 


EQU 


0D38H 


@VER EQU 


1560H 




@VRSEC 


EQU 


19DCH 


@WEOF EQU 


14ECH 




@ WHERE 


EQU 


1979H 


QWRITE 


EQU 


1531H 


QWRSEC 


EQU 


19E8H 


QWRSSC 


EQU 


19ECH 


QWRTRK 


EQU 


19F0H 


QVDCTL 


EQU 


0D42H 


ADDR_2_R0WC0L 


EQU ( 


AFLAG$ 


EQU 


00 6 AH 


AUTO? EQU 


1FF1H 




BAR$ EQU 


0201H 




BOOTST$ 


EQU 


439DH 


BREAK? 


EQU 


1C60H 


BRKVEC$ 


EQU 


1C88H 


BUR$ EQU 


0200H 




CASHK$ 


EQU 


0A7BH 


CFCB$ EQU 


OOEOH 




CFGFCB$ 


EQU 


OOEOH 


CFLAG$ 


EQU 


006CH 


CKMODQ 


EQU 


1A7FH 


CKOPEN@ 


EQU 


1568H 


CMD_AH 


EQU 


1FD6H 


CMD_C EQU 


1E81H 




CMD_CI 


EQU 


208BH 


CMD_D EQU 


1EABH 




CMD_DEC 


EQU 


1EC9H 


CMD_G EQU 


1F82H 




CMD_INC 


EQU 


1EB1H 


CMD_0 EQU 


1ECEH 




CMD_R EQU 


203FH 




CMD_S EQU 


1E9DH 




CMD_U EQU 


1EA1H 




CMD_X EQU 


1E9CH 




CMND EQU 


1E4CH 




CONFIG$ 


EQU 


203FH 


CORE$ EQU 


0300H 




CRTBGN$ 


EQU 


OF 80 OH 


CV2HEX@ 


EQU 


221AH 


CVB EQU 


2200H 




CYL_GRN 


EQU 


16AEH 


D@FBYT8 


EQU 


1A26H 


DATE$ EQU 


0033H 




DAYTBL$ 


EQU 


04C7H 


DBGSV$ 


EQU 


OOAOH 


DCBKL$ 


EQU 


0031H 



0DF1H 



DCT$ EQU 


041 'OH 




DCTBYT8Q 


EQU 


1A29H 


DCTFLD@ 


EQU 


1A34H 


DFLAG$ 


EQU 


006DH 


DIRBUF$ 


EQU 


2300H 


DIS_DO_RAM 


' EQU 


084 6H 


DODATA$ 


EQU 


0B94H 


DODCB$ 


EQU 


021 OH 


DO_CONTROL 


EQU 


0C44H 


DO_DSPCHAR 


EQU 


0CB8H 


DO_INVERT_ 


DIS 


EQU 0C8CH 


DO_INVERT_ 


ENA 


EQU 0C89H 


DO_INVERT_ 


OFF 


EQU 0C9BH 


DO_MASK 


EQU 


OOOOH 


DO_RET 


EQU 


OBCBH 


DO_RETI 


EQU 


OBCCH 


DO_SCROLL 


EQU 


OCCEH 


DO_TABS 


EQU 


OBEAH 


DSKTYP$ 


EQU 


04C0H 


DSPASC@ 


EQU 


201BH 


DTPMT$ 


EQU 


04C2H 


DVREND$ 


EQU 


0FF4H 


DVRHI$ 


EQU 


0206H 


ED_TAB 


EQU 


2150H 


EFLAG$ 


EQU 


006EH 


ENADIS_DO_ 


RAM 


EQU 081 7H 


EXTDBG$ 


EQU 


19A4H 


FDD I NT $ 


EQU 


OOOEH 


FEMSK$ 


EQU 


006FH 


FLGTAB$ 


EQU 


00 6 AH 


GETASC@ 


EQU 


2031H 


GET_@_ROWCOL 


EQU ODAEH 


HERTZ$ 


EQU 


0750H 


HEXINQ 


EQU 


21E4H 


HIGH$ EQU 


04 0EH 




HKRES$ 


EQU 


1A6CH 


IFLAG$ 


EQU 


0072H 


INBUF$ 


EQU 


0420H 


INPUCg 


EQU 


21D5H 


INPUTg 


EQU 


21C9H 


INTIM$ 


EQU 


003CH 


INTMSK$ 


EQU 


003DH 


INTVC$ 


EQU 


003EH 


JCLCB$ 


EQU 


0203H 


JDCB$ EQU 


0024H 




JFCB$ EQU 


OOCOH 




JLDCB$ 


EQU 


0230H 


JRET$ EQU 


0026H 




KCK@ EQU 


07D6H 




KFLAG$ 


EQU 


0074H 


KIDATA$ 


EQU 


08FCH 


KIDCB$ 


EQU 


0208H 


LBANK$ 


EQU 


0202H 


LDRV$ EQU 


0023H 




LFLAG$ 


EQU 


0075H 


LNKFCB@ 


EQU 


1566H 


LOW$ EQU 


001EH 





LSVC$ EQU 


OOODH 




MAXCOR$ 


EQU 


2400H 


MAXDAY$ 


EQU 


0401H 


MINCOR$ 


EQU 


3000H 


MODOUT$ 


EQU 


0076H 


MONTBL$ 


EQU 


04DCH 


NFLAG$ 


EQU 


0077H 


OPREG$ 


EQU 


0078H 


OPREG_SV_AREA 


EQU 086EH 


OPREG_SV_PTR 


EQU 0835H 


OP_TAB 


EQU 


211FH 


ORARET@ 


EQU 


14DCH 


OSRLS$ 


EQU 


003BH 


OSVER$ 


EQU 


0085H 


OVRLY$ 


EQU 


0069H 


PAKNAM$ 


EQU 


0410H 


PAUSE@ 


EQU 


0382H 


PCSAVE$ 


EQU 


07AFH 


PDRV$ EQU 


001BH 




PHIGH$ 


EQU 


001CH 


PRDCB$ 


EQU 


0218H 


PUTAQDE 


EQU 


ODCDH 


PUT_@ EQU 


ODCAH 




PUT_@_ROWCOL 


EQU 0DC6H 


RFLAG$ 


EQU 


007BH 


ROWCOL_ 2_ADDR 


EQU ODD OH 


RST38@ 


EQU 


1BFFH 


RSTOR$ 


EQU 


04C4H 


RWRIT@ 


EQU 


13A2H 


S1DCB$ 


EQU 


0238H 


SBUFF$ 


EQU 


1D00H 


SETQEXEC 


EQU 


1A79H 


SET_SCROLL 


EQU 


0CF3H 


SFCB$ EQU 


008CH 




SFLAG$ 


EQU 


001 'CH 


SIDCB$ 


EQU 


022 OH 


SODCB$ 


EQU 


0228H 


SPACE 4$ 


EQU 


2142H 


STACK$ 


EQU 


0380H 


START$ 


EQU 


OOOOH 


SVCRET$ 


EQU 


OOOBH 


SVCTAB$ 


EQU 


0100H 


SYSERR$ 


EQU 


1B13H 


TCB$ EQU 


004EH 




TFLAG$ 


EQU 


007DH 


TIME$ EQU 


002DH 




TIMER$ 


EQU 


002CH 


TIMSL$ 


EQU 


002BH 


TIMTSK$ 


EQU 


0713H 


TMPMT$ 


EQU 


04C3H 


TRACE_INT 


EQU 


07B1H 


TYP3 EQU 


2024H 




TYP4 EQU 


2026H 




TYPHK$ 


EQU 


0A8FH 


TYPTSK$ 


EQU 


0B26H 


USTOR$ 


EQU 


0013H 


VFLAG$ 


EQU 


007FH 



WR1HEXQ 


EQU 


2211H 


WR2HEX@ 


EQU 


2215H 


WRINT$ 


EQU 


0080H 


WRSPA@ 


EQU 


2231H 


XY_TAB 


EQU 


2157H 


ZERO$ EQU 


0401H 




ZEROAQ 


EQU 


13A0H 


END 







;SYS5A/ASM - LS-DOS 6.2 

f 

ORG OAOH 
; References to save area in lowcore 



SAVONE 


DS 


1 


SAVTWO 


DS 


1 


DS 


1 




NXTADR 


DS 


2 


NXTBYT 


DS 


1 


DSPADR 


DS 


2 


AFREG DS 


2 




DS 


2 




DS 


2 




HLREG DS 


2 




DS 


8 




IXREG DS 


2 




IYREG DS 


2 




SPREG DS 


1 




REGSAV 


DS 


1 


PCREG DS 


2 





SYS 5 



ORG 



1E00H 



AND 


7 OH 


RET 


Z 


POP 


AF 


POP 


AF 


PUSH 


AF 


PUSH 


IY 


PUSH 


IX 


EX 


AF,AF' 


EXX 




PUSH 


HL 


PUSH 


DE 


PUSH 


BC 


PUSH 


AF 


EX 


AF,AF' 


EXX 




PUSH 


HL 


PUSH 


DE 


PUSH 


BC 


PUSH 


AF 


LD 


HL, 


ADD 


HL,SP 


LD 


DE, AFREG 


LD 


BC,24 


LDIR 




LD 


(SPREG) , HL 


LD 


SP,HL 


LD 


HL, (PCREG) 


DEC 


HL 


LD 


A, (HL) 


CP 


0F7H 


JR 


NZ, $?1 


LD 


(PCREG) , HL 



; Space for saved byte (1) 



register save area 



BC , DE' , HL' 



;AF 

;BC 

;DE 

;HL 

;AF' 

;IX 

;IY 

;SP 

;PC 



; If entry = 0, return 

; Discard return to SYSO 
; Get original reg-AF 

; Save remaining regs 



; Place SP address into HL 
;Move the 24 bytes saved 



;P/u the byte at PC 
& check for breakpoint 

; Go if not a breakpoint 



This next routine picks up the data stored in the 
instruction storage areas used to hold the 
address & byte of the insertedRST ' s used to 
control the single step mode. If the address 
save area is zero, the an RST was not inserted. 
Two areas are needed because DEBUG inserts 
RST 48 's at both CALL origin & destination. 



$?1 


LD 


HL, SAVONE 




LD 


B,2 


$72 


XOR 


A 




LD 


E, (HL) 




LD 


(XL), A 




INC 


HL 




LD 


D, (HL) 




LD 


(HL) , A 




INC 


HL 




LD 


A,E 




OR 


D 




JR 


Z,$?3 




LD 


A, (DE) 




CP 


0F7H 




JR 


NZ, $?3 




LD 


A, (HL) 




LD 


(DE) , A 


$?3 


INC 


HL 




DJNZ 


$?2 


CMND 


LD 


SP, (SPREG) 




CALL 


WRREGS 




LD 


HL, 16<8!0 




LD 


B,3 




LD 


A, 15 




RST 


28H 




CALL 


INPUTQ 




CP 


'9' 




JP 


Z, CMD_G 




LD 


HL, CMND 




PUSH 


HL 




CP 


•s ' 




JR 


Z, CMD_S 




CP 


t ■ F 
/ 




JR 


Z, CMD_INC 




CP 


r _ r 




JR 


Z, CMD_DEC 




CP 


'o' 




JR 


Z, CMD_0 




CP 


'c' 




JR 


Z, CMD_C 




CP 


'd' 




JR 


Z, CMD_D 




CP 


'i ' 


CMD_C 


JP 


Z, CMD_CI 




CP 


'a ' 




JP 


Z, CMD_AH 




CP 


<h< 




JP 


Z, CMD_AH 



; Set up loop for 2 areas 
; Clear register A & flags 

;P/u the next 2 bytes 
; (where an address 
; would be stored) while 

/ simultaneously setting 
; the save area to zero 

; Ck if the area was zero 

; If zero , no RST entry 

; Address save <> zero, 
; ck byte for RST 3 OH 

; Was RST 30H, restore 
; the program byte 

; Loop thru 2 save areas 
; Set up the stack 

; & display normal CRT 
;Move cursor to 16,0 
; Command 
;Svc QVDCTL 
; Set cursor 

; Get command 
;Goto AAAA, (BBBB (, CCCC) ) 

; Set up a return branch 

; Set CRT to full screen? 

; Inc CRT one page? 

;Dec CRT one page? 

;Out to DOS 

; Single step with CALL? 

; Display AAAA <space> 

; Single step? 

; ASCI I modify memory? 

; Hex modify memory AAAA? 



CP 


, r , 


JP 


Z, CMD_R 


CP 


'u ' 


JR 


Z, CMD_U 


CP 


'x' 


JP 


NZ, BLOCK 



; Modify reg pair RP DDDD? 

; Dynamic display update? 

; Display register format? 
• Try extra commands 

r 

; Command X — Normal display mode 

r 

CMD_X XOR A 

CMD_S LD (SAVTWO) ,A ; Show not full screen 

RET 

; Command U - continuously update display 

r 

CMD_U CALL @KBD ; Scan keyboard 

OR A /Character entered? 

RET NZ /Return to CMND if so 

CALL WRREGS ; else refresh display 

JR CMD_U ; & loop 

f 

; Command D - Display memory at address NNNN 

r 

CMD_D CALL HEXIN@ 

RET Z ;Ret to CMMD if no char 

JR $?6 ; else set DSP ADR to 

; new address in HL 

r 

; Command ; — Increment memory display one block 

r 

CMD_INC LD BC,64 ; Init for 64-byte block 

$?4 LD HL, (DSPADR) ;P/u current display addr 

LD A, (SAVTWO) ; =0 -> Normal display addr 

;<>0 -> Full disp mode 
OR A 

JR Z,$?5 

LD C, ; Zero out low order to 

provide inc or dec of 
256 bytes (full disp) 
B=00 -> inc 1 page, 
make BC = 256 

;B=FF -> Dec 1 page, 
just add 
HL now points to 

new display address 



LD A,B 

OR A 

JR NZ,$?5 

INC B 

$?5 ADD HL,BC 

$?6 LD (DSPADR), HL; 



RET 

r 

; Command - - Decrement memory dsplay 1 block 

r 

CMD_DEC LD BC, OFFCOH ; Init to 64-byte dec 

JR $?4 

/ 

; Command O - Exit to DOS 

/■ 

CMD_0 CALL INPUT@ ; Fetch valid terminator 

RET NC ;Back if bad char 

JP @EXIT ;Else exit to DOS 



Register display routine 



WRREGS : 



$?8 



$?9 



$?10 



LD A, 1CH 

CALL @DSP 

IF QM0D4 

LD A, 15 

CALL @DSP 

END IF 

LD A, (SAVTWO) 

OR A 

JR NZ, FULDSP 

LD HL,AFREG 

PUSH HL 

LD HL, REGTBL 

LD B, 12 

CALL WR3BYT 

EX (SP) , HL 

LD E, (HL) 

INC HL 

LD D, (HL) 

INC HL 

PUSH HL 

EX DE, HL 



LD 

CALL 

CALL 

LD 

CALL 

LD 

CALL 

LD 

AND 

CP 

JR 

LD 



LD 
SLA 
LD 
JR 
LD 

CALL 
INC 
DJNZ 
POP 
LD 
CALL 
JR 
NOFLG CALL 
$?11 POP 
EX 
DJNZ 
POP 
LD 



A, '=' 

@DSP 

WRSPA@ 

A,H 

WRHEX 

A,L 

WRHEX 

A,B 

OBH 

08H 

NZ, NOFLG 

C,L 
PUSH BC 
LD HL, FLGTBL 

B,8 

C 

A, (HL) 

C,$?10 

A, '-• 

@DSP 

HL 

$?9 

BC 

A, 61+0C0H 

@DSP 

$?11 

WRMEM 

HL 

(SP) , HL 

$?8 

HL 

HL, (DSP ADR) 



; Home the cursor 



; Turn off the cursor 



; = Normal display mode 
; <> = Full display mode 
;No reg display if FULL 
;Pt to register save area 

;Pt to reg symbol table 

; Init for 12 registers 

; Write 3-character symbol 
; Exchange reg save ptr 
; Place reg value -> DE 



; Place next reg save 

; pointer on the stack 

;Reg value -> HL 



; Write hi-order byte 
; Write lo-order byte 

; Get loop counter & 

; ck if 12 => AF pair 

; or if 8 => AF ' pair 

; Bypass if not flag reg 

; Transfer 'F' reg to C & 

; save the loop counter 

;Pt to flag syMbol table 

; Init for 8 bits 

; Shi ft a bit into carry 

;P/u flag table character 
; Use table char if bit en 

; else use a dash 

;Next flag table char 
; Loop for 8 flag bits 
; Get main loop counter 
; Tab 60 to put cursor 
; on next line 



; Get next reg save ptr 

;Excg with next reg symbol 
; Loop end 

; Get reg save ptr (fini) 
;P/u memory disp address 



$?12 



FULDSP 



LD 


B,4 


LD 


A, 6+0C0H 


CALL 


@DSP 


CALL 


WR2HEX@ 


CALL 


WRSPA@ 


CALL 


WRMEM 


DJNZ 


$?12 


LD 


A,1FH 


JP 


@DSP 


> 


LD HL, 


LD 


L, 


LD 


B,16 


JR 


$?12 



; Init for 4 lines 
; Tab 6 spaces 

; Write the memory address 

; Write a space 
; Write a line of memory 
; Loop until 4 or 16 
; Clear to end-of -frame 



HL, (DSPADR) ;P/u display address 
; Round to multiple of 256 
; Init for 16 lines 



; Register symbol table 

r 

REGTBL DB ' af be de hi af 'be' ' 

; Flag register bit symbol table 

r 

FLGTBL DB 'SZ1H1PNC 



de ' 'hi ' ' ix iy sp pc 



Command G — Go to memory address NNNN, 
with optional breakpoints 



; Init for maximum of 
; two breakpoints 

; Get exec address 

; Go on end 
; else save new start 

; Go if <ENTER> used 

; Get a breakpoint 

; Set if brkpt entered 



; Init DEBUG on 



This next section of code picks up the register 
save arrea, pushes the save area onto the stack, 
the pops out into the correct reg assignments . 



;End of reg save area 
; Init for 11 regs 



CMD_G 


LD 


B,2 




LD 


DE, NXTBYT 




CALL 


HEXIN@ 




JR 


Z,$?13 




LD 


(PCREG) , HL 


$?13 


JR 


C,$?14 




CALL 


HEXIN@ 




PUSH 


AF 




CALL 


NZ, $717 




POP 


AF 




DJNZ 


$?13 


$?14: 








XOR 


A 




LD 


(@DBGHK) , A 



$?15 


LD 


HL, REGSAV 




LD 


B,ll 


$?16 


LD 


D, (HL) 




DEC 


HL 




LD 


E, (HL) 




DEC 


HL 




PUSH 


DE 




DJNZ 


$?16 




POP 


AF 




POP 


BC 




POP 


DE 




POP 


HL 




EX 


AF,AF' 



;Now pop the registers 



EXX 




POP 


AF 


POP 


BC 


POP 


DE 


POP 


HL 


EX 


AF, AF' 


EXX 




POP 


IX 


POP 


IY 


POP 


HL 


LD 


SP,HL 


LD 


HL, (PCREG) 


PUSH 


HL 


LD 


HL, (HLREG) 


RET 





; Init the branch address 



; Go to branch 



This next routine will insert an RST 48 inst into 
the target of a single-step or breakpoint 
providing the target address is a RAM location. 
If it is, the target byte and its address are 
saved in one of the instruction save areas. 
If the target address is ROM or nonexistent, a 
branch to command INPUT routine is taken instead 
of the pending operation. 



$?17 



LD 


A, (HL) 


LD 


(DE) , A 


DEC 


DE 


LD 


A, 0F7H 


LD 


(HL) ,A 


CP 


(HL) 


JP 


NZ, $?1 


LD 


A,H 


LD 


(DE) , A 


DEC 


DE 


LD 


A,L 


LD 


(DE) , A 


DEC 


DE 


RET 





; Save byte of next inst 



; Insert RST 48 into 

; next INST address 
; Ck if RAM/ROM/no memory 

; Go to command if not RAM 
; Is RAM, save address of 

; insertion into buffer 
; pointed to byuu DE, DE-1 



Commands A & H - Modify address NNNN to XX 
< SPACE > increments address 



CMD_AH LD (SAVONE) ,A ; Save enttry condition 

LD HL, (NXTADR) ; Default to current mod addr 

CALL HEXIN@ 

$?18 LD (NXTADR), HL ; Adjust addr for mod 

RET C ; Return on <ENTER) 

PUSH HL 

CALL WRREGS 

LD HL,13<8!0 

LD B,3 

LD A, 15 

RST 28H 

LD HL, (NXTADR) ;P/u mod address again 

CALL WR2HEX@ ;Wtie the address & save 

PUSH HL ; the mod addr again 



; Cursor to 13,0 

; Svc @VDCTL set cursor 





LD 


HL,14<8!0 




LD 


B,3 




LD 


A, 15 




RST 


28H 




POP 


HL 




CALL 


AHDSP 




LD 


A, '-' 




CALL 


@DSP 




POP 


DE 




CALL 


AHGET 




EX 


DE,HL 




JR 


Z,$?19 




LD 


(HL) , E 


$?19 


RET 


C 




INC 


HL 




JR 


$?18 


AHDSP 


LD 


A, (SAVONE) 




CP 


'a ' 




JP 


NZ, WR1HEXS 


DSPASC@ 


LD A, (HL) 




CP 


2 OH 




JR 


C, TYP3 




CP 


OCOH 




JR 


C, TYP4 


TYP3 


LD 


A, ' ■ ' 


TYP4 


JP 


@DSP 


AHGET 


LD 


A, (SAVONE) 




CP 


'a ' 




JP 


NZ, HEX IN @ 


GETASC@ 


PUSH HL 




LD 


HL, INPUC&+1 




LD 


(HL) , 6FH 




CALL 


INPUTQ 




LD 


(HL) , OEFH 




POP 


HL 




LD 


L r A 




RET 





: Cursor to 14,0 

: Svc gVDCTL set cursor 

• Recover mod addr 

; Recover mod addr in DE 

: Switch mod addr/value 

; Bypass change on <SPACE> 
; Insert new val in memory 
•To CMND on non-digit 

else increment address 
pointer & loop 



Write (HL) & bump H 

;Else write in ASCII 
■ Convert non-displayable 
; values to ' . ' 



; Provide lower/upper 
case entry in type 
by modifying sys5 code 

: Restore the UC -> 1c 
conversion 



Command R - Load register pair RP with NNNN 



; Get 1st symbol char 
Return if end 

else save char in C 

; Get 2nd symbol char 
Return if end 

else save char in D 
Init for space 

; Get 3rd symbol char 
Return on end 

; Bypass if not primed 
else put " ' " into E 

; Ck for space separator 
Return if none 



CMD_R 


CALL 


INPUT@ 






RET 


Z 


r 




LD 


C,A 


f 




CALL 


INPUT@ 






RET 


Z 


r 




LD 


D,A 


r 




LD 


E, ' ' 


f 




CALL 


INPUT@ 






RET 


C 


f 




JR 


Z, $?20 






LD 


E,A 


; 




CALL 


INPUTS 






RET 


NZ 


/ 




RET 


C 




$?20 


LD 


HL, REGTBL 


/ 




LD 


B, 12 


f 


$?21 


LD 


A, (HL) 





Register symbol table 
; Init for 12 registers 

;Match first symbol? 





CP 


C 






JR 


Z, $?24 






INC 


HL 


r 


$722 


INC 


HL 




$?23 


INC 


HL 






DJNZ 


$?21 


f 




RET 




r 


$?24 


INC 


HL 


f 




LD 


A, (HL) 






CP 


D 


f 




JR 


NZ, $722 






INC 


HL 


r 




LD 


A, (HL) 






CP 


E 


f 




JR 


NZ, $723 






LD 


A,18H 


f 




SUB 


B 


r 




SUB 


B 






LD 


C,A 


r 




LD 


B,0 






LD 


HL,AFREG 


r 




ADD 


HL,BC 


r 




PUSH 


HL 


r 




LD 


A, 1EH 


f 




CALL 


@DSP 






POP 


DE 


r 




CALL 


HEXINQ 






RET 


Z 


f 




EX 


DE,HL 


r 




LD 


(HL) , E 






INC 


HL 


r 




LD 


(HL) , D 






RET 







; If a match, test 2nd 
else pt to next reg 



Loop for 12 regs 
Return if no match 
Pt to 2nd table char 

; & p/u the symbol 
Ck the 2nd char input 

; —> next if no match 
Match, ck 3rd reg symbol 

;P/u the 3rd table symbol 
& compare with input 

; —> next if no match 
Convert counter to index 
into reg save area 

Index into BC 

Start of reg save area 
Add index to get pointer 
Save the pointer 
Erase to end of line 

Recover pointer 

; Read in the new value 
No update if none 
; Exchg value/pointer 

; Insert new value into 
register save area 



Command I — Step one instruction at a time 



CMD_CI 


PUSH AF 






LD 


DE, (PCREG) 


r 




LD 


A, (DE) 






LD 


HL,XY_TAB 


; 




CP 


ODDH 


; 




JR 


Z,$?25 






CP 


OFDH 


; 




JR 


Z,$?25 






LD 


HL, OP_TAB 


f 




CP 


OEDH 


/ 




JR 


NZ, $726 






LD 


HL,ED_TAB 


/ 


$725 


INC 


DE 


/ 




LD 


A, (DE) 






DEC 


DE 


r 


$726 


LD 


C,A 


r 



; Save whether I or C 
; Point to inst address 

; & get it 
IX, IY Table 
Is inst an IX? 

Is inst an IY? 

All X IX, IY, & ED 
Is inst an ED? 

ED Table 

Get next byte for 

IX, IY, and ED inst 
Reset ptr to 1st byte 
; Inst byte to reg C 



This next section of code determines the length 
of all instructions and whether they 
are CALLs, JumPs, or RETurns . 



$ ?2 7 LD 
AND 
INC 
CP 
INC 
JR 
INC 
LD 
CP 
JR 

$?28 LD 
LD 
AND 
LD 
LD 
ADD 
PUSH 
LD 
CALL 
POP 
LD 
AND 
JR 
INC 
CP 
JR 
JR 
CP 
JR 
JR 
CP 
JR 
JR 
LD 
AND 
LD 
LD 
POP 
CP 
JR 
LD 
CP 
JR 
JR 

$?28A POP 
CP 
JR 
JP 
LD 
LD 
INC 
LD 
LD 
JR 
LD 
LD 
RLCA 



$?29 
$?30 
$?31 



$?32 



A, (HL) 

C 

HL 

(HL) 
HL 

Z, $?28 
HL 

A, (HL) 
5 

NC, $727 
A, (HL) 
B,A 
OFH 
L,A 
H,0 
HL,DE 
DE 

DE, NXTBYT 
$?17 
HL 
A,B 
OFOH 
Z, $?29 
HL 
2 OH 
C,$?34 
Z,$?33 
4 OH 

C, $ ?32 
Z,$?31 
60H 

C,$?30 
Z, $?28A 
A,C 
38H 
L,A 
H,0 
AF 

'c' 

Z, $?29 
A,L 
5<3 

NC,$?29 
$?35 
AF 

'i ' 

Z,$?31 
$?15 

HL, (SPREG) 
A, (HL) 
HL 

H, (HL) 
L,A 
$?35 
C, (HL) 
A,C 



;P/u table value & 
; strip off certain bits 
;Pt to table code 
; If a match, the inst is 
; fully decoded as to 

; length & type by the 
; next byte 

; Ck for table end 



; Get control/length byte 
into reg B 
: Strip off the control 
:Put length into reg L 
: Zero out reg H 
■Next address into HL 
•This addr in DE saved 
: Buffer area 
■Insert RST 48 if RAM 
■ Get this inst address 
• Get control /length byte 
: Strip off length 

; Go if regular inst 



; Branch if ' JP (HL) ' 
;Go if 'JP (IX/IY) ' 

;Go if ' JR' or ' DJNZ ' 
;Branch if ' JP ' inst 

; Branch if 'RET' inst 
; Branch if CALL inst 

else calc target of 

the RST inst 



; Rcvr entry command 

;Go in "call" mode 
Must check RST for 
40, 48, 56 inhibit 

; Convert to CALL 
else single step 
Recover entry command 
Was command an ' I ' 

;Go for ' CALLs ' if 'I' 
Go for 'CALLs' if 'C 
RET inst, p/u RET addr 

; JP inst, p/u jump addr & 
insert into reg HL 



; ' JR' or 'DJNZ' , 
;Make A=0 if C is 
; positive, else make 



get 'E ' 





SBC 


A, A 




LD 


B,A 




INC 


HL 




ADD 


HL,BC 




JR 


$?35 


$?33 


LD 


HL, (IXREG) 




BIT 


5,C 




JR 


Z,$?35 




LD 


HL, (IYREG) 




JR 


$?35 


$?34 


LD 


HL, (HLREG) 


$?35 


CALL 


$?17 




JR 


$?29 



■ A=FF for negative 
;Put -> B, FF if 'E' neg 
; or if 'E' pos. 
;Add the displacement 

; Init for JP (IX) 

; Test inst for DD/FD 

;Bit 5 off = DD 
;JP (IY) , p/u jump addr 

; JP (HL) , p/u jump addr 



The next three tables are used to determine 
length S instruction type for all instructions 
used in the single-step mode. Table format uses 
three bytes for each decoding process . The 1st 
byte is ANDed with the inst byte to strip off 
selected bits and include others. The result is 
compared to the next table byte (test byte) for 
a match. If matched, then the iist byte has been 
identified as to its class & length. The 3rd byte 
denotes the class and length as follows: 
High order nybble 

= Regular instruction 

1 = JP (HL) instruction 

2 = JP (IX) of JP (IY) instruction 

3 = JR or DJNZ instructions 

4 = JP instructions 

5 = RET instructions 

6 = CALL instructions 

7 = RST instructions 
Low order nybble = the length 

The last byte of each table is the length of 
all other instructions . 



Table for regular instruction (no IX, IY, 
OP_TAB DB 0C7H, OCOH, 51H ;C8, D8, E8, 



B) 



11, 21, 
2A, 32, 3A 
;C2, CI, D2, 



31 



DA, E2, EA, 



DB 0C7H, OCOH, 51H ; C8, D8, E8, F8 

DB OFFH, 0C9H,51H ;C9 

DB OFFH, 0E9H, 11H ;E9 

DB OCFH, 01H, 03H ; 01, 

DB 0E7H,22H, 3 ; 22 , 

DW 0C2C7H 

DB 43H ; F2 , FA 

DB OFFH, 0C3H, 43H ; C3 

DW 0C4C7H ;C4, 

DB 63H ; F4, FC 

DB OFFH, OCDH, 63H ; CD 

DW 06C7H ;06, OE, 16, IE, 26, 

DB 02H ; 36, 3E 

DB 0F7H, 0D3H, 02 ;D3, DB 

DW 0C6C7H ;C6, CE, D6, DE, E6, EE, 

DB 02H ; F6, FE 

DB 0FFH,0CBH,2 ; All CB instructions 

DB 0F7H, 10H, 32H ; 10 , 18 



CC, D4, DC, E4, EC, 



2E 



DB 0E7H,20H, 32H 

DB 0C7H, 0C7H, 71H ; RST instructions 

DB 1 ;A11 others are 1-byte 



Next table is for ED - extended instructions 



ED TAB 



DB 
DB 



DB 0C7H, 43H, 04H ;43, 

0F7H, 45H, 52H ;45, 4D 

2 ;A11 other ED are 2-byte 



4b, 53, 5B, 73, 7B 



IX, IY Index instructions table 



XY_TAB 


DB OFEH, 34H, 0. 


3 ;34, 35 






DB 


0C0H,40H, 03 ;4X, 


5X, 6X, 7X 


(X = 


0-F) 


DB 


OCOH, 80H, 03 ; 8X, 


9X, AX, BX 


(X = 


0-F) 


DB 


0FFH,21H, 04 ; 21 








DB 


OFFH, 22H, 04 ; 22 








DB 


OFFH, 2 AH, 04 ; 2 A 








DB 


0FFH,36H, 04 ,36 








DB 


OFFH, OCBH, 04 


;CB 






DB 


OFFH, 0E9H, 22H 


;E9 






DB 


02 H ;A11 


others are 


2-by\ 


te 



Routine to display memory on CRT screen 

; Save main counter 4/16 



: Init for 16 lines 

•Save memory pointer 

; Ck if need graphic tars 
; Call on HEX display only 

: Loop until full line 

•Rcvr memory pointer 



Now write the line in ASCII 



WRMEM PUSH 


BC 


LD 


A, '=' 


CALL 


@DSP 


INC 


A 


CALL 


@DSP 


LD 


B,16 


PUSH 


HL 


$?36 CALL 


GRPHIC 


CALL 


WR1HEX@ 


DJNZ 


$?36 


POP 


HL 





CALL 


WRSPA@ 




LD 


B,16 


$737 


CALL 


$?41 




LD 


A, (HL) 




CP 


2 OH 




JR 


C,$?38 




CP 


OCOH 




JR 


C,$?39 


$?38 


LD 


A, ' . ' 


$?39 


CALL 


@DSP 




INC 


HL 




DJNZ 


$?37 




POP 


BC 




RET 





; Space after 8th 

;P/u the byte -> reg A 
; Repl controls with '. ' 

; Tabs/specials with '. ' 



: Bump memory address 
• Get line counter 



This routine determines if veritical graphic 
bars should be surrounding the curret character 



GRPHIC 



$?40 



$?41 



$?42 





LD Di 


INC 


DE 


PUSH 


HL 


XOR 


A 


SBC 


HL,DE 


IF 


QM0D4 


LD 


A, 95H 


END IF 




IF 


QM0D2 


LD 


A, 15H 


ENDIF 




JR 


Z,$?40 


CALL 


$?41 


INC 


HL 


LD 


A,L 


OR 


H 


POP 


HL 


IF 


QM0D4 


LD 


A, OAAH 


JP 


Z, @DSP 


JR 


$?42 


ENDIF 




IF 


@M0D2 


JR 


NZ, $742 


XOR 


A 


CALL 


@DSP 


LD 


A, 15H 


JP 


@DSP 


ENDIF 




EQU 


$ 


IF 


@M0D2 


PUSH 


AF 


XOR 


A 


CALL 


@DSP 


POP 


AF 


ENDIF 




CALL 


@DSP 


POP 


HL 


LD 


A,B 


CP 


8 


RET 


NZ 


JR 


WRSPA@ 



(NXTADR) ;P/u modification address 
; & increment it 
; Save current memory 
; display address 
; Ck if mod addr=disp addr 

; Graphic left bar 



; Insert graphic if equal 
Not =, insert space if 

between pos 8 & 9 
Result is zero if next 
char address is also 
the display address 
; Get current mem disp adr 

; Graphic right bar output 
; Go if yes 
; else continue 



; Go if not 
/ lead in 
; Init video lead in 

; and display 



; Lead in code 
; Restore 

; Display char 
; Recover current display 
; address & output a 
; space if between the 
8th S 9th bytes 

; else just return 



This routine will return with zero flag set 

on entry of a comma or a SPACE. Entry of <ENTER> 

will set carry flag and return 



INPUT@ 


PUSH DE 




$?43 CALL 


@KEY 




CP 


ODH 


; ENTER? 


JR 


Z, $?44 




CP 


2 OH 


; Get an 


JR 


C,$?43 


r 


INPUCQ 


SET 5, A 


; 


CALL 


@DSP 


;Not co 


POP 


DE 





entry was control 
;Cvrt UC to lc 



$?44 



CP 

RET 

CP 

RET 

POP 

SCF 

RET 



DE 



; Return with zero flag 
; set if a comma 
; Return with zero flag 
; set if <SPACE> 

; <ENTER> will set 
; the carry flag 



This routine will read in digits 
and convert them to binary 



HEXIN@ 



$?45 



J 


CALL 11 


RET 


Z 


LD 


HL, 


CALL 


CVB 


JP 


C,CMND 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,HL 


OR 


L 


LD 


L,A 


CALL 


INPUT@ 


JR 


NZ, $745 


RRA 




ADC 


A, 81H 


RET 





INPUTQ ;Get char and return on 

SPACE, COMMA, or ENTER 
; Init value to zero 
; Convert to binary if ok 

; else back on bad digit 
;Multiply current valve 
; by 1 6 and insert the 
; new digit into the 
; lo-order nybble of L 



; Get another character 
; Go if not separator 

; Force <ENTER> to set 

; the carry flag 



Routine to convert expected ASCII hex digit to 
its binary value. Set Carry-flag on bad digit 



CVB 



ATOF 



SUB 


<o< 


RET 


C 




ADD 


A, 


0C9H 


RET 


C 




ADD 


A, 


6 


JR 


c, 


ATOF 


ADD 


A, 


21 'H 


RET 


C 




ADD 


A, 


OAH 


OR 


A 




RET 







Convert digit to binary 
Error if < ' ' 

;Ck for > F (46H-30H=16H) 
(16H + E9H = FFH) 
Error if > ASCII ' F 1 
(E9H-EFH) to (EFH-05H) 

; Carry denotes was <A-F> 
(EFH-FFH) to (F6H-06H) 
Error if (3AH-3FH/ : -?) 
(00D-06D) to (10D-16D) 
or (F6H-FFH) to (0-9) 
; Set zero flag on zero 



; Routine to write one byte as two hex digits 

r 

WR1HEX/3 LD A, (HL) 

INC HL 

JR CV2HEX@ 

r 

; Routine to write 2 bytes (HL) as 4 hex digits 



WR2HEX@ LD A, H 

CALL CV2HEX@ 
LD A,L 



Routine converts a byte to 2 hex digits 
PUSH AF 



CV2HEX@ 

RRA 
RRA 
RRA 
RRA 
CALL $?4 6 

POP AF 
$?4 6 AND OFH 

ADD A, 9 OH 
DAA 

ADC A, 4 OH 
DAA 
$?4 7 JP @DSP 



; Miscellaneous routines 

r 

WRHEX CALL CV2HEX@ 

WRSPA@ LD A, 2 OH 

JR $?47 

r 

WR3BYT CALL $?48 

CALL $?48 

$?48 LD A, (HL) 

INC HL 

JR $?4 7 

r 

: Command B — Block move 



; Save the byte in A 
;Move hi-order 
; into lo-order 



Strip off hi-order 

S convert to ASCII 
Recover the byte 
Strip off hi-order 
S convert to ASCII 



BLOCK 


CP 


'b' 




JR 


NZ, FILL 




LD 


HL, (DSPADR) 




CALL 


HEXIN@ 




RET 


C 




LD 


(DSPADR) , HL 




JR 


NZ, BL01 




CALL 


WR2HEX@ 




LD 


A ' ' 




CALL 


@DSP 


BL01 


LD 


HL, (NXTADR) 




CALL 


HEXINQ 




LD 


(NXTADR) , HL 




JR 


NZ, BL02 




PUSH 


AF 




CALL 


WR2HEX@ 




LD 


A ' ' 




CALL 


@DSP 




POP 


AF 


BL02 


LD 


HL,256 




JR 


C, BL03 




CALL 


HEXINQ 




JR 


NZ, BL04 


BL03 


PUSH 


HL 




CALL 


WR2HEX@ 



; 'b'lock move s,d,len 

; Default to display addd 

;Back on <ENTER> 

; Save start addr 

; Go if start entered 
; else show default 



; Default next address 

; Save dest address 

; Go if entered 

; else show default 



; Default length to 256 
;Go if <ENTER> used prev. 
; Get new length 
; Go if entered 

; else dsply default 



BL04 



POP 

LD 

LD 

LD 

LD 

LDIR 

LD 

RET 



; Length to BC 



HL 

B,H 

C,L 

HL, (DSPADR) ;Set source 

DE, (NXTADR) ; and dest 

(NXTADR) ,DE ; Set new mod addr 



'fill aaaa, bbbb, cc 



FILL CP 


'f 


JR 


NZ, JUMP 


CALL 


HEXINQ 


RET 


Z 


PUSH 


HL 


CALL 


HEXINQ 


EX 


(SP) , HL 


POP 


BC 


RET 


Z 


PUSH 


HL 


CALL 


HEXINQ 


LD 


E,L 


POP 


HL 


RET 


Z 


XOR 


A 


FIL1 PUSH 


HL 


SBC 


HL,BC 


POP 


HL 


RET 


NC 


LD 


(HL) , E 


INC 


HL 


JR 


FIL1 



; Get starting address 

; Save starting address 

; Get ending address 
; Place ending into BC 

; & starting into HL 

; Save starting again 

; Get fill character 
; Save fill in E 
; Recover starting addr 

; Clear the C-flag 



; Return when start = end 

; Stuff char into memory 



' j ' ump over next instruction 



JUMP 



CP 


'3' 


JR 


NZ, QUERY 


LD 


HL, (PCREG) 


INC 


HL 


LD 


(PCREG) , HL 


RET 





; Get current PC location 
; and increment it 



'q'uery ii - 'q'uery oo,dd 
input/output to port 



QUERY CP 


'<?' 


JR 


NZ, DISKIO 


LD 


A, 1EH 


CALL 


@DSP 


CALL 


HEXINQ 


RET 


Z 


LD 


C,L 


JR 


C, QUE1 


CALL 


HEXINQ 


RET 


Z 


OUT 


(C),L 



; Clear to end of line 

; Get port number 
;Back if no value 

; If <ENTER>, do input 
; Get byte to output 

; Quit if none 

; Do the output 



QUE1 



RET 




LD 


A, '=' 


CALL 


@DSP 


IN 


A, (C) 


CALL 


CV2HEX@ 


JP 


INPUTQ 



;Dsply separator 

; Read the port and 

; dsply the value 



If a command is entered and not foundin SYS5, 
SYS9 will be searched if the extended debugger 
is active. 



EXTDBG 



JP 



LD 
(HL) 



HL, (EXTDBG$) 



; Try extended debug 



Disk I/O - d, c, s, r/w/*, addr, lngth 



DISKIO 



DIS1 



DIS2 



DIS3 



DIS4 



•) 


SUB 3 OH 


CP 


8 


JR 


NC, EXTDBG 


LD 


C,A 


CALL 


@GTDCT 


LD 


A, (IY+7) 


AND 


OEOH 


RLCA 




RLCA 




RLCA 




INC 


A 


LD 


B,A 


LD 


A, (IY+7) 


AND 


1FH 


INC 


A 


LD 


H,A 


XOR 


A 


ADD 


A,H 


DJNZ 


DIS1 


BIT 


5, (IY+4) 


JR 


Z, DIS2 


ADD 


A, A 


LD 


(SAVTWO+1) ,A 


LD 


A, 1EH 


CALL 


@DSP 


CALL 


INPUT@ 


RET 


C 


CALL 


HEXINQ 


RET 


C 


LD 


D,L 


JR 


NZ, DIS3 


LD 


D, (IY+9) 


CALL 


HEXINQ 


LD 


E,L 


LD 


A,l 


JR 


NZ, DIS4 


LD 


E, 


LD 


A, (SAVTWO+1) 


LD 


(NXTBYT) ,A 


RET 


C 


CALL 


INPUTQ 



; Cnvrt drive to binary 
; Check on max drive 
;Exit if not <0-7> 
;Xfer drive # to reg C 

; & get the DCT 
; Get sectors/cyl & heads 
; Remove sectors/cyl 
; & keep # of heads 
; Shift into bits 0-2 

;Adj for offset 

;# of sectors per cyl 

; Remove heads 

;Adj for zero offset 



; Accumulate total 
; Sectors per cyl 



of 



; Test if 2-sided drive 

; Times 2 if 2-sided 

i ; Save sectors per cyl 

; Clear to end of line 

; Input CYL # 

; cyl in hex 

/Cylinder entered? 

;P/u directory cyl 

; Sec in hex 
; Sector entered? 
; Init to 1 sector i/o 

; Default to sector 

; Default to total sectors 

;Get I/O direction (R,W,*) 



DIS6 



RET 

LD 

CALL 

RET 

CALL 

PUSH 

JR 

PUSH 

CALL 

LD 

POP 

JR 

LD 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

DIS7 INC 
INC 
LD 
DEC 
CP 
JR 
LD 
INC 

DIS8 LD 
DEC 
LD 
JR 

DIS8A POP 
LD 
CP 
RET 
LD 
LD 
LD 
LD 
LD 
RET 



C 
B,A 

INPUTg 

C 

HEXINQ 

HL 

C,DIS6 

HL 

HEXINQ 

A,L 

HL 

Z,DIS6 

(NXTBYT) ,A 
A,B 

'r' 
Z,DIS9 

'w' 
Z,DIS10 

< * < 

Z,DIS11 

H 

E 

A, (SAVTWO+1) 

A 

E 

NC, DIS8 

E, 

D 

A, (NXTBYT) 

A 

(NXTBYT) , A 
NZ, DIS6 
HL 
A,B 

•r' 
NZ 
L,0 

(DSPADR) , HL ; 

(NXTADR) , HL ; 
A, 's' 

(SAVTWO) , A 



Save I/O char in B 

; Get buffer I/O address 



Save buffer address 



; Sector count entered? 



; Go if no sector count 
Else update count 
P/u I/O direction 
Read? 

Write? 

Write System sector? 

Bump up a buffer page 
Bump sector number 

;P/u max # sectors 
Compare max to where 
we are 

; Jump i f more on cyl 
Reset sector # to 
Bump cylinder 
Reduce I/O sector count 



; Loop if not through 
Rcvr buffer start addr 
P/u i/o direction 
Read? 

Ret if not read 
Reset memory buffer ptr 

to display the 1st 

sector read 
Set full screen mode 



DIS9 



EQU 

PUSH 

PUSH 

PUSH 

LD 

LD 

INC 

LD 

LD 

LDIR 

POP 

POP 

POP 



$ 

HL 
DE 
BC 
D,H 
E,L 
DE 

(HL) , 
BC, 255 

BC 
DE 
HL 



;Pass buffer to DE 

; Start +1 

; Clear a byte 
; Length - 1 

; Clear buffer 

; Unstack 





CALL 


@RDSEC 




JR 


Z,DIS7 




CP 


6 




JR 


Z,DIS1 




JR 


DIS12 


DIS10 


CALL 


@WRSEC 




JR 


Z,DIS7 




JR 


DIS12 


DISH 


CALL 


@WRSSC 




JR 


Z,DIS7 



;Read the sector 
; Loop on read ok 
or directory read 

else error 

; Write sector 

; Loop on write ok 

; Write system sector 
; Loop on write prot ok 



disk I/O/ error output display routine 



DIS12 PUSH 
PUSH 
CALL 
LD 
CALL 
POP 
CALL 
LD 
CALL 
CALL 
POP 
JR 
JR 

LAST EQU 
IF 

ADISP 
END IF 
ORG 
DW 
END 



; Save 
; Save 



DE 
AF 
WRSPA@ 

A,'*' 
@DSP 
AF 

CV2HEX@ 
A, '*' 
@DSP 
INPUT@ 
DE 

NC,DIS7 
DIS8A 
$ 

LAST . GT . MAXCOR$-2 
'ERROR: Module too big' 



track & sector 

error code 

; Output a space 



; followed by asterisk 

; Write error code # 

; followed by space 

; Continue? 
; Rcvr track/ sector 

;Loop unless <ENTER> 
;Exit on <ENTER> 



MAXCOR$-2 
LAST-SYS5 



; Overlay size 



;SYS9/ASM - LS-DOS 6.2 

ADISP '<SYS9 - LS-DOS 6.2> 



*LIST OFF 

*REF 'SYS5/EQU:!' 
*LIST ON 

*GET 'C0PYC0M:1' 
ORG OAOH 



;Get SYS5/EQU 

; Copyright message 



SAVONE 


DS 


1 


SAVTWO 


DS 


1 


DS 


1 




NXTADR 


DS 


2 


NXTBYT 


DS 


1 


DSPADR 


DS 


2 


AFREG DS 


6 




HLREG DS 


2 




DS 


8 




IXREG DS 


2 




IYREG DS 


2 




SPREG DS 


1 




REGSAV 


DS 


1 


PCREG DS 


2 





; Space for saved byte (1) 



;AF, BC, DE 

;HL 

;AF', BC, DE', HL ' 

;IX 

;IY 

;SP 

;PC 



ORG 1E00H 



SYS9 



AND 

RET 

LD 

XOR 

LD 

ADC 

RET 

LD 

LD 

LD 

XOR 

SBC 

LD 

INC 

PUSH 

EX 

LD 

LDIR 

POP 

LD 

RET 



7 OH 

Z ;Back on zero entry 

HL, (EXTDBG$) ; P/u hook address 

A; ; See if already resident 

DE, -ORARETQ 

HL,DE ;ADD does not affect Z 

NZ ;Ret if resident already 

HL, (HIGH$) ; Change high$ to provide 

(DEBUGE+2) ,HL ; Stuff last byte used 

BC , LAST-DEBUGE ; Room for relocating 



A 

HL,BC 
(HIGH$) , HL 
HL 
HL 

DE,HL 
HL, DEBUGE 



this module to high 



;Pt to new entry point 
; Save it for later 
;Move extended debug 
; up to top of core 



HL ; Rcvr pointer to ent pt 

(EXTDBG$) ,HL ; S reset sysres vector 



Start of extended debug utHity 



DEBUGE 



DW 
DB 
DW 



JR NEXT 

$-$ 

6, 'EXTDBG' 

0,0 



'n'ext aaaa — position to next relative block 
used in stepping through a program file 



dumped to core in load module format 



NEXT CP 'n'-'O' 

JR NZ, ENTER 

LD HL, (NXTADR) 

CALL HEXINg 

INC HL 

LD D, 

LD E, (HL) 

LD A,E 

CP 3 

JR NC, NEX1 

INC D 

NEX1 INC DE 

ADD HL, DE 

LD (NXTADR) , HL 

LD A,L 

AND OCOH 

LD L,A 

LD (DSP ADR) , HL 

RET 



; Init if no further input 

;Argmt aaaa entered? 
; Bump from type to length 

;P/u block length 

;Len= 0,1,2? 

;If len= 0,1,2 (256-8) 
next block is +257-259 
Bump by one for len byte 
Add length to index 
Next block 

Now set up the display 
; Address 



Enter hex data into memory 

; 'e ' nter <addr> 

HL, (NXTADR) ;Pt to current address 

; Get new address to enter 



ENTER 


CP 


'e'-'O ' 




JR 


NZ, LOCAT 




LD 


HL, (NXTA 




CALL 


HEXINQ 




LD 


(NXTADR) 




RET 


C 




JR 


NZ, ENT1 




CALL 


WR2HEX@ 




CALL 


WRSPAQ 


ENT1 


LD 


A, 1EH 




CALL 


@DSP 


ENT2 


CALL 


WR1HEX@ 




DEC 


HL 




LD 


A, '-' 




CALL 


@DSP 




EX 


DE,HL 




CALL 


HEXINQ 




EX 


DE,HL 




JR 


Z, ENT3 




LD 


(HL) , E 


ENT3 


RET 


C 




INC 


HL 




LD 


(NXTADR) 




JR 


ENT2 



HL 



;Back on <ENTER> 

; Go if new addr 

; else dsply default 

; Clear the line 

; Set up the display 



; Get the modify info 

; No change if no new data 
; else update byte 
;Back if <ENTER> pressed 

HL ; Index to next address 



' 1 ' ocate aaaa,dd 



LOCATE CP 'l'-'O' 

JR NZ, TYPE 

LD HL, (NXTADR) ; Default current address 

INC HL 

CALL HEXIN@ ; Prompt new address 

LD (NXTADR) , HL 



JR NZ, LOCI ; Go if new addr 

PUSH AF ;Save flags 

CALL WR2HEX/3 ; Display default 

LD A, ', ' 

CALL @DSP 

POP AF 

LD A, (NXTBYT) ; P/u default byte 

LD L,A 

LOCI JR C,L0C2 ;Go if <ENTER> used 

CALL HEXINQ ; else get new byte 

JR Z, L0C2 / Go if none entered 

LD A,L 

LD (NXTBYT), A ; else set byte to find 

JR L0C3 

L0C2 LD A, L ; Display byte info 

CALL CV2HEX@ 

L0C3 LD HL, (NXTADR) ; Set up for search 

LD A, (NXTBYT) 

LD BC,0 ;Set loop to 64K 

CPIR ;Find a match 

RET NZ ;Back if none 

DEC HL 

LD (NXTADR), HL /Store new mod addr 

LD A,L 

AND OCOH 

LD L,A 

LD (DSP ADR) , HL 

RET 

r 

; 't 'ype aaaa - type ascll into memory 

r 

TYPE CP 't'-'O' 

JR NZ, VERIFY 

LD HL, (NXTADR) /Default current address 

CALL HEXIN@ /Prompt for new address 

LD (NXTADR) , HL 

RET C /Back on <ENTER> 

JR NZ, TYP1 / Go if new addr 

CALL WR2HEX/3 ; else dsply default 

TYP1 LD A, 1EH /Clear to end of line 

CALL @DSP 

TYP2 CALL WRSPA@ 

CALL DSPASC@ /Display current contents 

LD A, '-' 

CALL @DSP 





PUSH 


HL 


/Provide lower/upper 




CALL 


GETASC@ 


; case entry 




POP 


HL 


; conversion 




RET 


C 






CP 


2 OH 


/Advance on space 




JR 


Z, TYP5 






LD 


(HL) ,A 


/Store new info 


TYP5 


INC 


HL 






LD 


(NXTADR) , 


, HL /Advance the location 




JR 


TYP2 





'v' erify aaaa, bbbb, lngth - verify block 



VERIFY 



VER1 



VER2 



VER3 



VER4 



VER5 



r 


CP 'v'-'O 


JR 


NZ, WORD 


LD 


HL, (DSPADR) 


CALL 


HEXINQ 


LD 


(DSPADR) , HL 


JR 


NZ, VER1 


PUSH 


AF 


CALL 


WR2HEX@ 


LD 


A ' ' 


CALL 


@DSP 


POP 


AF 


JR 


C, VER2 


LD 


HL, (NXTADR) 


CALL 


HEXINg 


LD 


(NXTADR) , HL 


JR 


NZ, VER2 


PUSH 


AF 


CALL 


WR2HEX@ 


LD 


A ' ' 


CALL 


@DSP 


POP 


AF 


LD 


HL,0 


JR 


C, VER3 


CALL 


HEXINQ 


JR 


NZ, VER3 


PUSH 


HL 


CALL 


WR2HEX@ 


POP 


HL 


LD 


B,H 


LD 


C,L 


LD 


HL, (DSPADR) 


LD 


DE, (NXTADR) 


LD 


A, (DE) 


CP 


(HL) 


JR 


NZ, VER5 


INC 


DE 


INC 


HL 


DEC 


BC 


LD 


A,B 


OR 


C 


JR 


NZ, VER4 


LD 


(NXTADR), DE 


LD 


(DSPADR) , HL 


RET 





; 1st default start of dsp 
; Prompt new start 

;Go if address entered 

; else dsply default 



; Jump if <ENTER> used prev. 
; 2nd default current mod addr 
; Prompt new 2nd start 

; Go if entered 

; else dsply default 



;Default length to verify 

; Go if <ENTER> used prev 

; Get new length 

; Go if new len entered 

; Dsply default len 

;Xfer length to B2 

; Set up for compare 



; Compare the two locations 
; Go on non— match 
else inc pointers 
and loop for length 



Store non-match or end of 
block 



WORD 



'w'ord aaaa, dddd - search for word dddd 



;Default current address 
; but bypass next word 

; Get new start 

; Go if value entered 
; else display default 



CP 


'w'-'O' 


JR 


NZ, PRINT 


LD 


HL, (NXTADR) 


INC 


HL 


INC 


HL 


CALL 


HEXINQ 


LD 


(NXTADR) , HL 


JR 


NZ, WOR1 


PUSH 


AF 





CALL 


WR2HEX@ 




LD 


A ' ' 




CALL 


@DSP 




POP 


AF 




LD 


A, (NXTBYT) , 




LD 


L,A 




LD 


A, (SAVTWO+1) 




LD 


H,A 


W0R1 


JR 


C, W0R2 




CALL 


HEXINQ 




JR 


Z, W0R2 




LD 


A,L 




LD 


(NXTBYT) , A 




LD 


A,H 




LD 


(SAVTWO+1) , A 




JR 


W0R3 


W0R2 


CALL 


WR2HEX@ 


W0R3 


LD 


HL, (NXTADR) , 




LD 


BC,0 


W0R4 


LD 
CPIR 


A, (NXTBYT) 




RET 


NZ , 




LD 


A, (SAVTWO+1) 




CP 


(HL) 




JR 


NZ, WOR4 




DEC 


HL 




DEC 


HL , 




LD 


(NXTADR) , HL , 




LD 


A,L 




AND 


OCOH 




LD 


L,A 




LD 


(DSPADR) , HL , 




RET 





Get next default 



;Go if <ENTER> 
; Get next value 
;Go if default 
Store new value 



; Display value 
Start looking here 
Init count to 64K 

Find first match 
Return if none 

;Get 2nd half of word 
Is a match? 

; Continue if not 

Pt 1 byte before 

and save that address 



New display start 



'p'rint aaaa,bbbb - print memory 



PRINT 


CP 


'p'-'O' 


PRI1 


RET 


NZ 




CALL 


HEXINQ 




RET 


Z 




PUSH 


HL 




CALL 


HEXINQ 




EX 


(SP) , HL 




POP 


BC 




RET 


Z 




LD 


A,L 




AND 


OFOH 




LD 


L,A 




LD 


A, ODH 




CALL 


@PRT 




CALL 


@PRT 


PRI2 


PUSH 


HL 




LD 


A,H 




RRA 






RRA 






RRA 






RRA 





; If command is not 'P', 
; back to SYS5 

; Get start 
;Back if no start addr 

; Get end 

; Start in HL, end in BC 

;Back if no end addc 

; Round to multiple of 16 



; Send 2 blank lines to 
; the printer 

; Routine to write HL 
; as 4 hex digits 



PRI3 



AND 

ADD 

DAA 

ADC 

DAA 

CALL 

LD 

AND 

ADD 

DAA 

ADC 

DAA 

CALL 

LD 

RRA 

RRA 

RRA 

RRA 

AND 

ADD 

DAA 

ADC 

DAA 

CALL 

LD 

AND 

ADD 

DAA 

ADC 

DAA 

CALL 

LD 

CALL 

CALL 

JR 

JR 



OFH 
A, 90H 

A, 40H 

@PRT 
A,H 
OFH 
A, 90H 

A, 4 OH 

@PRT 
A,L 



OFH 
A, 9 OH 

A, 4 OH 

@PRT 
A,L 
OFH 
A, 90H 

A, 4 OH 

@PRT 

A,20H 

@PRT 

@PRT 

PRI4 

PRI2 



; 1st one done 



; 2nd one done 



■ 3rd one done 



; 4th one done 
; & 2 spaces 



; Write a byte in hex 

r 

PRI4 LD A, (HL) 

RRA 

RRA 

RRA 

RRA 

AND OFH 

ADD A, 9 OH 

DAA 

ADC A, 4 OH 

DAA 

CALL @PRT ; Output it 

LD A, (HL) 

AND OFH 

ADD A, 9 OH 

DAA 

ADC A, 4 OH 

DAA 

CALL @PRT ; Output it 



LD A, 2 OH 

CALL @PRT 

INC HL 

LD A,L 

AND OFH 

JR Z, PRI5 

AND 3 

LD A, 2 OH 

CALL Z, @PRT 

JR PRI4 

PRI5 LD A, 2 OH 

CALL @PRT 

POP HL 

PRI6 LD A, (HL) 

CP 2 OH 

JR C,PRI7 

CP 8 OH 

JR C, PRI8 

PRI7 LD A, ' . ' 

PRI8 CALL @PRT 

INC HL 

LD A,L 

AND OFH 

JR NZ, PRI6 

LD A, ODH 

CALL @PRT 

PUSH HL 

LD A,L 

OR H 

JR NZ, PRI9 

POP HL 

JR PRI10 

PRI9 XOR A 

SBC HL, BC 

POP HL 

JR C, PRI3 

PRI1 LD A, ODH 

CALL @PRT 

CALL @PRT 

JP @PRT 

LAST EQU $ 

IF $.GT.DIRBUF$ 

ADISP 'ERROR: Module too big' 

END IF 

ORG MAXCOR$-2 

DW LAST-SYS9 /Overlay size 



; & a space 

; Pt to next byte 
;Test multiple of 16 



; Space on multiple of 4 



; Space at end of 16 



; Print in ASCII if 
printable; else 

; convert to ' . ' 



; Loop until 16 chars 

; then a new line 

; Check if HL is 0000 

; is OK > continue 

; Get OUT now 

; Ck on finished 

; 3 new lines if done 



END 



SYS9 



;SYS10/ASM - LS-DOS 6.2 

AD ISP '<SYS10 - LS-DOS 6 . 2> 



CR EQU 13 

r 

*LIST OFF 

*REF ' SYSO/EQU :1 

*LIST ON 

*GET 'C0PYC0M:1' 

f 

ORG 1E00H 



;Get SYSO/EQU 

; Copyright message 



SYS 10 AND 
RET 
CP 
RET 
LD 
BIT 
JR 

CALL 
LD 
AND 
CP 
JR 
LD 
OR 
RET 

REM0V1 

LD 
CALL 

REM0V2 

RET 
LD 
ADD 
LD 

REM0V3 

INC 

LD 

LD 

LD 

CP 

JR 

INC 

CALL 

JR 



70H ; Strip bit 7 

Z ;Back on zero entry 

10H ; Remove all for now 

NZ ; Ret if any other entry 

A, (DE) ;Test device/ file 

7, A ;File open or device? 

Z, CLOSDCB ; Jump if device 

CKOPENQ ; Test for remove access 

A, (IX+1) ; & link the FCB to IX 
7 ; Test for remove access 
2 

C,REM0V1 ; Jump if access granted 

A, 25H ; "Illegal access . . . 

A ; Set NZ error 

LD C, (IX+6) ;P/u drive # 

B, (IX+7) ;P/u DEC 

QGATRD ;Read GAT => DIRBUF$ 

CALL Z,@DIRRD ; Read dir for this DEC 

; Return if read errors 
;Point to 1st extent 



NZ 
A, 22 
A,L 
L,A 

LD E, (HL) 

L 

D, (HL) 

(EXTINFO+1) ,DE 
A,E 
OFEH 

NC, FIXDIR 
L 

RMVEXT 
REM0V3 



;P/u relative cylinder 

;P/u granule allocation 
;Modify later instruction 
; Ck if extent in use 

; Jump if not used 

; Deallocate ext from GAT 
; Loop to next extent 



Deallocated last extent; clean up directory 



FIXDIR 



I 


LD A,L 


AND 


OEOH 


LD 


L,A 


RES 


4, (HL) 


CALL 


@DIRWR 


CALL 


Z, QHITRD 


LD 


H, SBUFF$>8 


LD 


L,B 


LD 


(HL) , 



;Point to 1st byte 
; of DIR entry 

; Show dir entry spare 
; Write the dir record 
;Grab HIT => SBUFF$ 
; Point to HIT entry 
; & zero out DEC posn 



CALL Z,@HITWR ; Write HIT back to disk 

RET NZ ;Ret if read/write errors 

EXTINFO LD DE, ; P/u last extent info 

r 

; If extended directory record inuse, 

; D -> DEC of FXDE record 

; E -> FE if FXDE, FF if extent unused 



ZERLP1 



LD 


B,D 


LD 


A,E 


CP 


OFEH 


JR 


Z, REM0V2 


CALL 


QGATWR 


RET 


NZ 


PUSH 


IX 


POP 


HL 


LD 


B,32 


XOR 


A 


i 


LD (h: 


INC 


HL 


DJNZ 


ZERLP1 


RET 





;Ck for FXDE in use 

;X'FE' => FXDE in use 
; Jump if FXDE in use 

; else write the GAT 
; Ret if write error 
; Transfer FCB address 
; to HL & zero out FCB 
; Init for 32-byte field 
; Zero accum 
A ; Zero out the entire FCB 



REMOVE will only close a logical device 



CLOSDCB 


CP 10H 


LD 


A, 38 


RET 


NZ 


CALL 


LNKFCB@ 


LD 


C, (IX+6) 


LD 


B, (IX+7) 


LD 


(IX+O), '*' 


LD 


(IX+1) ,C 


LD 


(IX+2) , B 


LD 


(IX+3) , 03H 


XOR 


A 


RET 





; Is this an open DCB 
; Init "file not open 

;Link to DCB (DE->IX) 
; Get device name 

; Stuff device indicator 
; Stuff 1st char of name 
; Stuff 2nd char of name 
; Terminate with ETX 



Deallocate an extent 



RMVEXT PUSH HL 

PUSH BC 

LD A, 8 

CALL QDCTBYT 
RLCA 
RLCA 
RLCA 

AND 7 

INC A 



;P/u the # of grans per 

; cylinder into reg A 
; Shift into bits 0-2 



; Remove all else 

; Adjust for zero offset 



Ck for 2-sided operation 



LD 


L,A 


LD 


A, 4 


CALL 


QDCTBYT 


BIT 


5, A 


LD 


A,L 



; Save current grans/cyl 

; Get 2-sided flag 
; Test 2-sided 
;Xfer value back 



JR 

ADD 

LD 

LD 

LD 

LD 

AND 

LD 

INC 

XOR 

RLCA 

RLCA 

RLCA 

RMVEX1 

LD 

CALL 

LD 

POP 

INC 

GRNSCYL 
JR 
XOR 
INC 

DECGRNS 
JR 
POP 
POP 
RET 



Z,$+3 
A, A 

(GRNSCYL+1) , 
L,E 

H, DIRBUF$>8 
A,D 
1FH 
C,A 
C 
D 



PUSH AF 
B, (HL) 
RMVGRN 
(HL) , B 
AF 
A 

CP 

NZ, DECGRNS 
A 
L 

DEC C 
NZ, RMVEX1 
BC 
HL 



Bypass if 1-sided 

else multiply by 2 
1 ;Modify later instruction 
Relative cylinder —> L 
Point to GAT byte 
Rel gran & # of grans 
Get # of grans 

into reg C & adjust 

for zero offset 
Get rel gran & shift 

into bits 0-2 



; Save rel starting gran 
;P/u allocation byte 
; Turn off bit for a gran 
; Update GAT byte 
Recover starting gran 
Bump up 

; Ck with grans per cyl 
Go if still on this cyl 

else zero gran counter 
Bump to next cyl in GAT 

; Decrement # of grans 
Go if more to deallocate 
else recover regs 
and go home 



Remove a bit to deallocate & free up a gran 



RMVGRN 

RLCA 

RLCA 

RLCA 

OR 

LD 

RMVGRN1 

RET 



AND 



8 OH 

(RMVGRN1+1) , 
RES 0,B 



;Max 8-grans per cyl 
; Shi ft to create 
; RES opcode 

; Merge rest of RES code 
,A ; Stuff into the instr 

; Reset the proper bit 



LAST EQU $ 

IF $.GT.DIRBUF$ 

ADISP 'ERROR: Module too big' 

END IF 

ORG MAXCOR$-2 

DEFW LAST-SYS10 ; Overlay size 



END 



SYS 10 



;SYS11/ASM - LS-DOS 6.2 

/ 

ADISP '<SYS11 - LS-DOS 6 . 2> ' 



LF EQU 1 

CR EQU 13 

*LIST OFF 

*REF ' SYSO/EQU : 1 

*LIST ON 

*GET 'COPYCOM:!' 



ORG 



1E00H 



Get SYSO/EQU 
■Copyright message 



SYS 11 AND 


7 OH 




RET 


Z 


;Back on zero entry 


PUSH 


HL 




LD 


HL, KFLAG$ 


; Reset the <ENTER> 


RES 


2, (HL) 


; bit every time 


POP 


HL 




CP 


2 OH 


;New QEXIT? 


JR 


Z, NEWEXIT 




CP 


4 OH 


; New keyboard request 


JP 


Z, KEYREQ 


; after input of a lin 


CP 


5 OH 


; //INPUT followup 


JP 


Z, GETKEY 




CP 


10H 


; Initial entry to DO? 


RET 


NZ 





<D0> initialization of Sysres hooks 



DI 

LD 

RES 

LD 

BIT 

SET 

JR 

LD 

LD 



HL, KFLAG$ 
0, (HL) 
HL, SFLAG$ 
5, (HL) 
5, (HL) 
NZ, IPLDOl 
A, OADH 



; Clock off for now 
; Reset break bit only on 
; initial entry 

; If DO already in effect 
; don ' t rehook 



; Change @EXIT, QABORT to use 
({3EXIT+1) ,A ; SYS 11 rather than SYS1 

IPLDOl LD SP, STACK$ 

EI ; Clock back on 

LD DE,JFCB$ ;At end of SYSTEM/ JCL? 

CALL QCKEOF 

JP NZ, @ ERROR 

LD DE,IPLD02 ; Init JCLCB$ 

LD (JCLCB$+1 ) , DE 

CALL GETLINE ; Get a line from the file 

LD DE,@DOKEY ; Change vector to SYS11, 

LD (JCLCB$+1) ,DE ; entry 4 

JR $?1 ;Go interpret it 

IPLD02 LD DE,JFCB$ ; JCLCB$ input routine 

JP @GET 



NEWEXIT 
EI 



New @EXIT processing 

LD SP,STACK$ ;Reset the stack 



LD 


A,H 


OR 


L 


JR 


NZ, ABORT 


LD 


HL, SFLAG$ 



; Ck for error return 



BIT 4, (HL) 

JR NZ, NEWEX1 

CALL QCKBRKC 

JR NZ, ABORT 

NEWEX1 LD DE, JFCB$ 

CALL QCKEOF 

JR NZ, EXIT 

CALL GETLINE 

$?1 JP QCMNDI 

GETLINE LD HL, INBUF$ 

LD BC, 79<8 

JP @ KEY IN 



New ABORT processor 



; BREAK key disabled? 
; Check on <BREAK> 
;Exit if end of JCL 

; Grab a JCL line 

; Pt to line buffer 
;Max 79 chars 



ABORT LD 
LD 
JR 



HL,ABORT$ 
DE, gABORT 
EXIT1 



'Job aborted 



Scan for ENTER or BREAK 



KSCN 


LD 


A, (SFLAG$ 




BIT 


4, A 




LD 


A, (KFLAG$ 




JR 


NZ, KSCN1 




BIT 


0,A 




JR 


NZ, ABORT 


KSCN1 


BIT 


2, A 




RET 


Z 


KSCN2 


CALL 


@KBD 




JR 


Z, KSCN2 




LD 


HL, KFLAG$ 




RES 


2, (HL) 




PUSH 


BC 




LD 


B,3000>8 




CALL 


QPAUSE 




POP 


BC 




LD 


A, (HL) 




AND 


4 




XOR 


4 




JR 


Z, KSCN2 




RET 





BREAK key enabled 



; BREAK detected? 

;Test <ENTER> 

;Back if not 

; Clear the type ahead 

/Reset the ENTER bit 



; Don ' t return until clear 



; Continuation of EXIT processing 

r 

EXIT LD HL,JOBDUN$ ; "Job done. 

LD DE, @EXIT 

EXIT1 PUSH DE 

CALL QLOGOT ; Log & fall through 

; Turn off the DO processor 

r 

DOOFF EQU $ 



DI 




LD 


HL, SFLAG$ 


RES 


5, (HL) 


XOR 


A 


LD 


(JFCB$) , A 


LD 


H,A 


LD 


L,A 


LD 


DE, KIDCB$ 


LD 


A, 3 


CALL 


@CTL 


LD 


A, 93H 


LD 


({3EXIT+1) 


RET 





; Reset <DO> flag 



; Show FCB is closed 
;Set = for @EXIT 

; Clear any type-ahead 

; buffer (no streaming) 
; Restore @EXIT SVC 
; back to SYS1 



; Keyboard request processor 

r 

KEYREQ LD HL, 10 ; Back stack up 5 words 

ADD HL, SP ; SYSO, RET, DE, HL, IX, BC 

LD C, (HL) ;Get contents of BC 

INC HL ; prior to keyboard 

LD B, (HL) ; request & DRIVER save 

r 

; @KEYIN is requesting an entire line 

r 

B$ ;Ck on end of JCL file 



; Do we need to re-read 
; the JCL sector? 

; Get the sector back 

; Get a byte from the 
; JCL file 

; Exit on Zero byte 
; Is this line execution 
; JCL code to parse? 
;Set Z-flg 



KEYLINE 


LD DE, . 


PUSH 


BC 


CALL 


QCKEOF 


POP 


BC 


JR 


NZ, EXIT 


LD 


A,B 


CP 


C 


JP 


NZ, @GET 


CALL 


QRREAD 


JP 


NZ, @ ERROR 


CALL 


@GET 


OR 


A 


JR 


Z, EXIT 


CP 


'/' 


JR 


Z, GOTSLSH 


CP 


A 


RET 





Found an execution code line 



GOTSLSH 


PUSH BC 


PUSH 


DE 


LD 


B, 79 


LD 


HL, INBUF$ 


PUSH 


HL 


G0TSL1 


LD (HL) 


INC 


HL 


CP 


CR 


JR 


Z, G0TSL2 


CALL 


@GET 


DJNZ 


G0TSL1 


JR 


BADJCL 


G0TSL2 


POP HL 



; Save reg pr BC 
; Save DCB addr 
; Only 79-char max line 
; Get rest of line 
; into JCL buffer 

1 ; compare for CR as end 

; of line 



; Get a character 

; up to 79 max 

; Line too long 

;Rcvr pointer to bufr 



PUSH 


HL 


; and save again 


INC 


HL 


;Pt to 2nd char 


LD 


A, (HL) 




CP 


'/' 


; Found a //? 


JR. 


NZ, RE KEY 2 




INC 


HL 


;Ck on /// 


SUB 


(HL) 




JP 


Z, KEYIN6 


;Jump if /// 


SUB 


0F6H 




JP 


NC, KEYIN5 


; Jump if 3rd char is 0-9 


EX 


(SP) , HL 


;P/u start of command 


CALL 


@LOGER 


; line & log it 


EX 


(SP) , HL 




G0TSL3 


LD A, (HL, 


) ;Was char ENTER'. 


CP 


CR 




JR 


Z, REKEY2 




CP 


1 1 


; Ignore leading spaces 


INC 


HL 




JR 


Z, G0TSL3 




DEC 


HL 




LD 


DE, LILBUF 


; Put possible parm -> buf 


LD 


B,5 


;Max length of parm 


CALL 


PARSER 


; Parse parm 


JR 


NZ, RE KEY 2 




LD 


DE, LILBUF 




LD 


BC, PARMTBL 


; Is the parm a macro? 


CALL 


FNDPARM 




JR 


NZ, RE KEY 2 


; Bypass if not in tbl 


PUSH 


DE 


; Stack routine ' s entry 


RET 




; & go to it 


REKEY1 


POP BC 




REKEY2 


POP HL 




POP 


DE 




POP 


BC 




JR 


KEYLINE 




BADJCL 


LD HL,BADJCL$ ; "invalid JCL . . . 


JP 


ABORT+3 




; Process //STOP 




STOP CALL 


DOOFF 


; Turn off DO proc 


POP 


HL 




POP 


DE 




POP 


BC 




EI 






JP 


@KEY 


; Go to keyboard 


r 

; Process //DELAY 




r 

DELAY EX 


(SP) , HL 


;Pt to //delay line 


CALL 


@DSPLY 


; and display it 


EX 


(SP) , HL 




CALL 


0DECHEX 


; Cvrt entry to binary 


LD 


B,C 


; Set count 


DELAY 1 


CALL SILEN1 ; Delay a bit 


DJNZ 


DELAY1 




JR 


RE KEY 2 





Process //PAUSE 



PAUSE POP 


HL 


PUSH 


HL 


CALL 


QDSPLY 


PAUSE1 


CALL KSCN 


JR 


Z, PAUSE 1 


JR 


REKEY2 



; Display "pause.. 



;Loop for BREAK or ENTER 



Process / /KEY IN 



KEYIN POP 
PUSH 

KEYIN1 

INC 

CP 

JR 

CALL 

JR 

KEYIN2 

CALL 
LD 
LD 
CALL 

KEYIN3 

PUSH 
LD 
CALL 
JP 

KEYIN4 

LD 

INC 

CP 

JR 

POP 

PUSH 

LD 

CP 

JR 

INC 

CP 

JR 

INC 

SUB 

JR 

LD 

KEYIN5 

JR 

KEYIN6 

POP 
PUSH 
CALL 
JR 



A, (HL) 



HL 
HL 
LD 
HL 
CR 

Z, KEYIN2 
@DSP 
KEYIN1 
CALL @KEY 
@DSP 

(KEYIN5+1) ,A 
A,CR 
@DSP 

POP HL 
HL 

DE, JFCB$ 
QCKEOF 
NZ, EXIT 
CALL @GET 
(HL) , A 
HL 
CR 

NZ, KEY IN 4 
HL 
HL 

A, (HL) 
'/' 

NZ, KEY IN 3 
HL 
(HL) 

NZ, KEY IN 3 
HL 
(HL) 

Z, KEYIN6 
A, (HL) 
CP 

NZ, KEY IN 3 



;Rcvr pointer to "KEYIN 



; Display JCL command line 



; Get & display the char 
; Stuff for compare 
; Write new line 

;Ck for end of JCL 



;Xfer a line of JCL 
; to buffer 



; Look for // to find 
; Start of procedure block 



;//? 

; Point to proc label 
; Is label a '/' noting 
; exec phase cond's end? 

;Nope, get proc label 
; Same as key entry? 
; No match? check next one 



LD 

HL 

HL 

@LOGER 

REKEY2 



(KEYIN5+1) ,A 



; Stuff if /// 



; Log the command 



Process //ALERT 



ALERT XOR 
LD 

ALERT 1 

INC 

CP 

JR 

CP 

JR 

CP 

JP 

CP 

JR 

CP 

JR 

LD 

JR 



(ALERT 4+1) , A 
LD A, (HL) 

HL 



; Start with clean flag 
; Ignore spaces 



Z, ALERT1 



Z, ALERT 1 

CR 

Z, REKEY2 

') ' 
Z, ALERT 2 

' (' 
NZ, ALERT 3 

(ALERT 2+1) ,HL 
ALERT 1 



; Comma separator? 
;End of line? 
; Closing paren? 



; Start of parms? 

; If none of the above . . . 

; Save ptr to parm start 



; Check here when closing parm received 

r 

ALERT2 LD HL, ;P/u ptr to '(' if there 

LD A,H ;If the //ALERT1 started 

OR L ; with a ' ( ' , then 

JR NZ,ALERT1 ; repeat the parm 

JP BADJCL ; parsing, else exit 

r 

; Assumed integer parm found 



ALERT 3 DEC HL 

CALL QDECHEX 

LD B,C 

ALERT4 LD A, 

XOR OFFH 

LD (ALERT 4+1) , A 

LD C,A 

BIT 0,C 

CALL NZ, @SOUND 

BIT 0,C 

CALL Z, SILENCE 

CALL KSCN 

JP NZ, REKEY2 

JR ALERT 1 

r 

; Silence routine 

SILENCE OR B 

RET Z 

CALL SILEN1 

DJNZ SILENCE 

RET 

SILEN1 PUSH BC 

LD BC, 6555 

CALL QPAUSE 

POP BC 

RET 



; Backup pointer 

; Cvrt value to binary 

; Keep value as counter 

;Flip flag: entries 1, 3, 

; 5, . . . are noise, 2, 



4,6, 



are silence 



Test noise or silence 
Call for sound out 

then test again 
Silence . . . 
Ck BREAK or ENTER 
; Go on enter 

; Loop if not 



;A was zero 

; Delay a bit 

; for duration 

; Delay for 0.1 sec 



Process //FLASH 



FLASH CALL 


@DECHEX 


LD 


B,C 


POP 


HL 


PUSH 


HL 


FLASH1 


PUSH BC 


CALL 


QDSPLY 


LD 


BC,4000H 


FLASH2 


CALL KSCN 


JP 


NZ, REKEY1 


DEC 


BC 


LD 


A,B 


OR 


C 


JR 


NZ, FLASH 2 


LD 


A, 21 


CALL 


@DSP 


LD 


A, 30 


CALL 


@DSP 


CALL 


SILEN1 


POP 


BC 


DJNZ 


FLASH1 


FLASH3 


JP REKEY2 



;P/u the flash count 



; Display the prompt 
Countdown to flash msg 

;Keep testing <ENTER> 
key during countdown 
BREAK would abort 



Loop until count=0 
Erase the message line 
Cursor up to prev line 

Erase to end of line 

; Delay while blanked 



Process //SLEEP and //WAIT 



SLEEP 


DB 


3EH 


WAIT 


XOR 


A 




LD 


(SLPWT+1) 




EX 


(SP) , HL 




CALL 


@DSPLY 




EX 


(SP) , HL 




LD 


DE, TIMFLD 




LD 


B,3 




JR 


PAKTIM1 


PAKTIM 


CP ' : ' ■ 




JP 


NZ, BADJCL 


PAKTIM1 


PUSH BC 




CALL 


QDECHEX 




LD 


(HL) , C 




LDI 






POP 


BC 




DJNZ 


PAKTIM 


SLPWT 


LD 


A,0 




OR 


A 




JR 


Z, TSTIME 




LD 


HL, TIMFLD 




LD 


DE, TIME$ 




LD 


B,2 


SLP1 


LD 


A, (DE) 




ADD 


A, (HL) 




LD 


(HL) , A 




SUB 


60 




JR 


C, SLP2 




LD 


(HL) , A 




DEC 


HL 




INC 


(HL) 




INC 


HL 


SLP2 


INC 


DE 



;Make it LD A, OAFH 



; Display the JCL line 



;Pt to time field 

; Set up loop counter 

-'0' ;Test valid separator 



• Cvrt the hours 
; Store time parm 
; Shift & bump HL & DE 
; Rcvr the loop counter 

; Loop for 3 values 
;P/u sleep/wait flag 

;Go if //WAIT 



; Add secs/mins 

; Store 
;Ck overflow to mins/hrs 

; Go if none 

; Update value mod 60 
; & bump next field 

;Adj for dec 
; Bump time$ 



DEC HL ; Bump user field 

DJNZ SLP1 

LD A, (DE) ;Add hours 

ADD A, (HL) 

LD (HL) , A 

SUB 24 ;Wrap past midnight? 

JR C,TSTIME ;Go if not else 

LD (HL),A ; adjust mod 24 

; Walt until the system clock advances to request 

TSTIME CALL KSCN ; Scan for BREAK 

LD HL, TIMFLD 

LD DE, TIME$+2 

LD B, 3 ; Set loop counter 

CKTIME LD A, (DE) ;P/u a time value 

CP (HL) ; Match user input? 

JR NZ, TSTIME ; Go if no match 

INC HL ; Inc the user req ptr 

DEC DE ;Dec the time string ptr 

DJNZ CKTIME ; Loop for 3 values 

JR FLASH 3 ;A11 match, exit! 

; Process //INPUT request 

INPUT POP HL ; Recover JCL line & 

CALL @DSPLY ; display it 

LD A, ODDH ; Change sysres hook 

LD (@D0KEY+1) ,A 

POP DE ;Maintain Stck integrity 

POP BC ;Get QKEYIN values 

; This next routine will satisfy the request 

r 

; Fetch from keyboard 
; Don ' t disturb flag 

; Change back on BREAK 
; or ENTER 

; Recover flag 

i ; Restore Sysres hook 

; Get saved character 



Parameter list & scanners 

Parse a field 
(HL) => command line 
(DE) => FCB area 
Z <= found valid field 

NZ <= found invalid field 



PARSER LD B,8 ; Set length 

PARI LD A, B 



GETKEY 


CALL @KEY 


PUSH 


AF 


DEC 


A 


JR 


Z, UNHOOK 


CP 


CR-1 


JR 


Z, UNHOOK 


POP 


AF 


RET 




UNHOOK 


LD A, 0C1 


LD 


(@D0KEY+1) 


POP 


AF 


RET 





PAR2 



LD 
INC 
LD 
CP 
JR 
CP 
JR 
CP 
JR 
INC 
CALL 
JR 
CP 
JR 
CP 
JR 
RES 
PAR3 DEC 
JR 
LD 
XOR 
LD 
INC 
JR 



(PAR6+1) ,A 
B 

A, (HL) 
03H 

Z, PARS 
CR 
Z, PAR5 

' (' 

Z, PAR5 
HL 

TST09AZ 
NC, PAR3 

'a ' 
C, PAR5 

'z'+l 
NC, PAR5 
5, A 
B 
Z, PAR4 

(DE) , A 
A 

(PAR6+1) ,A 
DE 
PAR2 



;ETX? 

; <ENTER> ? 

; Begin of parm? 

; Bump pointer to next 
;Test if 0-9, A-Z 
; Go if one of the above 

; Check on lower case 

; Jump on non— alpha 

;Is it a-z? 

; Jump on non-alpha 

; Convert lower to upper 

; Count down 

;Xfer the char 
; Show at least 1 valid 
; char was detected 
; Bump FCB pointer 



PAR 4 



PAR5 



PAR 6 



INC 

JR 

LD 

LD 

LD 

LD 

OR 

LD 

RET 

TST09AZ 

RET 

CP 

JR 

CP 

RET 

CP 

EXITC CCF 
RET 



B 

PAR2 
C,A 
A, 03H 
(DE) , A 
A,0 
A 
A,C 



CP 
C 

'9'+l 
C, EXITC 

'A' 
C 

'Z'+l 



'0' 



; Here on max chars ck ' d 

; Save separator 
; Stuff an ETX 

; Set Z-flag if at least 
; 1 valid char detected 
; Recover separator char 

; Special character? 
; Go if not in range 
; Jump on bad digit 

;Go if 0-8 & make NC 
; Jump on spec char 
;Go with C-flag if 3B-40 
; Jump on A-Z 
; Switch flag of result 



Find parameter in table 
(HL) => pointer to line 
(DE) => pointer to buffer area 
(BC) => pointer to parameter table 

C <= entry # of parm in table 
(DE) <= parm vector address 

Z <= set if found 
NZ <= if not found in table 
Routine similar as FIND. PARM in SYS1 - dif width 



FNDPARM 
LD 
LD 



PUSH 

H,B 

L,C 



HL 



;Xfer the table address 



FND1 


LD 


A, (DE) 




CP 


(HL) 




JR 


Z, FND3 


FND2 


PUSH 


BC 




LD 


BC, 7 




ADD 


HL,BC 




POP 


BC 




LD 


A, (HL) 




OR 


A 




JR 


NZ, FND1 




POP 


HL 




INC 


A 




RET 





;P/u input byte 
; Match 1st char of table? 

; Jump if 1st matches 
; else bypass that entry 
; Width of table 



; Test for table end 
; Loop if not at end 
else set NZ return 



1st matches, do the rest? 

; # chars remaining 



FND3 LD B, 4 

PUSH HL 

PUSH DE 
FND4 INC DE 

INC 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

DJNZ FND4 
FND5 POP DE 

POP 

LD 

ADD 

LD 

INC 

LD 

POP 

XOR 

RET 



HL 

A, (DE) 
03H 

Z,FND1 
CR 

Z,FND1 
(HL) 
NZ,FND6 



BC 

HL,5 

HL,BC 

E, (HL) 

HL 

D, (HL) 

HL 

A 



;P/u input char 
;ETX? 

;End of line? 

;Match with table? 

; Exit & test the char 
; Loop for limit 
;Must be a match 

; Point to vector 

;Xfer vector to DE 



& show it found 



No match if alphanumeric unless a space 



FND6 CALL TST09AZ 
JR NC, FND8 



FND7 LD 


A, (HL 


) ; Loot 


CP 


f f 


; trailini 


JR 


Z, FND5 


FND8 POP 


DE 




POP 


HL 




JR 


FND2 




LILBUF 


DS 


6 


TIMFLD 


EQU 


LILBUF 


BADJCL$ 


DB 


'Bad JCL, ' 


ABORT $ 


DB 


' Job aborted ' , CR 


JOBDUN$ 


DB 


'Job done ' , CR 


PARMTBL 


DB 


'ABORT ' 



;Ck for 0-9, A-Z 

; Go if one of the above 

; Loop if table has 



LAST 



DW 


ABORT 


DB 


'ALERT ' 


DW 


ALERT 


DB 


'DELAY' 


DW 


DELAY 


DB 


'EXIT ' 


DW 


EXIT 


DB 


'FLASH ' 


DW 


FLASH 


DB 


'KEY IN' 


DW 


KEYIN 


DB 


'PAUSE ' 


DW 


PAUSE 


DB 


'SLEEP' 


DW 


SLEEP 


DB 


'STOP ' 


DW 


STOP 


DB 


' WAIT ' 


DW 


WAIT 


DB 


'INPUT' 


DW 


INPUT 


DB 


;End of tab. 


EQU 


$ 


IF 


$.GT.DIRBUF$ 


ADISP 


'ERROR: Module too big' 


END IF 




ORG 


MAXC0R$-2 


DW 


LAST-SYS11 ; Overlay si. 



END SYS 11 



;SYS12/ASM - LS-DOS 6.2 

ADISP '<SYS12 - LS-DOS 6 . 2> 



CR EQU 13 

*LIST OFF 

*REF ' SYSO/EQU : 1 

*LIST ON 

*GET 'COPYCOM:!' 



ORG 



1E00H 



;Get SYSO/EQU 



; Copyright message 



SYS 12 AND 
RET 
CP 
JP 
CP 
JP 
CP 
RET 



7 OH 

Z 

3 OH 

Z, GTMOD 

2 OH 

Z, MDIR 

10H 

NZ 



; Strip bit 7 

;Back on zero entry 

; Locate module address? 

;Mini dir? 

;RAMDIR? 

; Ret if any other entry 



RAMDIR interfacing 
HL = user buffer area 

B = drive # 

C = for entire directory 

C = 1-254 for selected DEC-1 (02-FF) 

C = 255 for disk space; in use/free 



; Ck on valid drive 

; Init "Illegal drive 

; Save regs 
; Get drive where needed 
;Tnsfer DEC to B 
; & drive to C 
;Make it ASCII 
A ; Stuff for STUFBUF 

; Be sure disk is there 



RAMDIR 


LD A, 7 


CP 


B 


LD 


A, 32 


RET 


C 


CALL 


LNKFCBQ 


LD 


A,B 


LD 


B,C 


LD 


C,A 


OR 


'0' 


LD 


(DSTDRV+1) 


CALL 


CKDRV 


RET 


NZ 


INC 


B 


JR 


NZ, DIRINFO 



;Test 0, 1-254, 255 
; Go if directory req 



Get FREE SPACE info 



PUSH 


HL 


CALL 


SPACE 


LD 


B, (HL) 


DEC 


HL 


LD 


C, (HL) 


DEC 


HL 


LD 


A, (HL) 


DEC 


HL 


LD 


L, (HL) 


LD 


H,A 


SBC 


HL,DE 


EX 


DE,HL 


POP 


HL 



; Save buffer pointer 
; Get our info 

;P/u free space in K 
into BC 



; Get total space in K 
into HL 



;Calc "in use" (C fig is 0) 

;Tnsfer to DE 

; Rcvr user bufr ptr 



LD 


(HL) 


,E 


INC 


HL 




LD 


(HL) 


rD 


INC 


HL 




LD 


(HL) 


rC 


INC 


HL 




LD 


(HL) 


,B 


XOR 


A 




RET 







; Stuff "in use" 



; Stuff "free to use" 



; Show no error 



Do RAMDIR directory info 



DIRINFO 


DEC B 


JR 


Z, DOALL 


INC 


B 



;If DEC=0, do it all 
;Go if all of it 
;1=>2, 2=>3, ..., FE=>FF 



Calculate the n 
= (^sectors x 



umber of directory sectors 
eads) - 2 for GAT £ HIT 



LD 

CALL 

LD 

AND 

LD 

INC 

XOR 

RLCA 

RLCA 

RLCA 

INC 

CALL 

LD 

LD 

CALL 

BIT 

LD 

JR 

ADD 



ONESID 



LD 

LD 

AND 

CP 

JR 

LD 

OR 

RET 



A, 7 

QDCTBYT 

D,A 

1FH 

E,A 

E 

D 



A 

@MUL8 

E,A 

A, 4 

0DCTBYT 

5, A 

A,E 

Z, ONESID 

A, A 

SUB 2 

D,A 

A,B 

1FH 

D 

C, DIRINF1 

A, 16 

A 



; Get highest # sector 

Store heads & sectors 
Mask off # sectors 

& stuff into E 
Bump for offset 
Recover # heads 

into bits 0-2 



; Bump for offset 

; Multiply sectors x heads 

;Now check double bit 



;Set if 2-sided 

Go if not set else 
double value 

; Reduce for GAT & HIT 
D => # dir sectors 
Get requested DEC 

See if in range 
Go if so 

"Illegal logical file # 
; Return out of range error 



DIRINF1 PUSH HL ; Save buffer ptr 

CALL @DIRRD ; Get its directory record 

POP DE ;Rcvr buf ptr 

RET NZ ;Back on an error 

LD A, (HL) ;Get attributes 

AND 0D8H ;Only if in use & VIS 

XOR 10H ;Flip state so NZ=no 

LD A, 25 ; Init file access denied 

RET NZ ;Back on no file, SYS, INV 



GETSTUF 


PUSH HL 


CALL 


STUFBUF 


POP 


HL 


LD 


A, (HL) 


AND 


7 


LD 


(DE) , A 


INC 


DE 


INC 


L 


INC 


L 


INC 


L 


LDI 




LDI 




LD 


A,L 


ADD 


A, 15 


LD 


L,A 


LD 


A, (HL) 


LD 


(DE) , A 


INC 


L 


INC 


DE 


LD 


H, (HL) 


LD 


L,A 


EX 


DE,HL 


LD 


(HL) , D 


INC 


HL 


INC 


DE 


INC 


DE 


INC 


DE 


SRL 


D 


RR 


E 


SRL 


D 


RR 


E 


LD 


(HL) , E 


INC 


HL 


LD 


(HL) , D 


INC 


HL 


LD 


(HL), '+' 


EX 


DE,HL 


XOR 


A 


RET 





; Save DIR ptr 

; Stuff the filespec 



: Keep the access level 

;Go up to EOF offset 

;Move in the offset & LRL 
;Bump to ERN 



;P/u ERN 

; and tnsfer it 



; # sectors to HL 
hence to DE 

; Stuff ERN Hi-order 
; Bump bufr ptr 
; Adjust for rounding 



:Divide by 4 to calc K 



;Xfer result into bufr 



: Stuff buffer terminator 
■Buffer ptr to DE again 
•Set Z=no error 



RAMDIR - Do all of the directory 



DOALL EX 


DE,HL 


CALL 


HITRD1 


RET 


NZ 


JR 


D0ALL3 


r 

DOALLl 


POP BC 


LD 


H, DIRBUF$>8 


LD 


L,B 


D0ALL2 


LD A,L 


ADD 


A, 32 


LD 


L,A 


JR 


NC, DOALL3 


INC 


L 


BIT 


5,L 


JR 


Z, D0ALL3 



•Buffer pointer to DE 

;Read in the HIT 
•Exit if read error 



; Recover HIT pointer lo 

-.Advance to next dir 

; record ot this sector 



: Bypass if still same 

else point to next one 

: Finished with 
this drive? 



XOR 

RET 



D0ALL3 LD A, (HL) 

OR A 

JR Z, D0ALL2 

LD B,L 

PUSH BC 

LD A,L 

AND OEOH 

LD L,A 

XOR B 

D0ALL4 CP OFFH 

JR Z, D0ALL5 

LD (D0ALL4+1) 

CALL QDIRRD 

JP NZ,MDIR12 

D0ALL5 LD H, SBUFF$>8 

LD A, (HL) 

AND 0D8H 

XOR 1 OH 

JR NZ, DO ALL 1 

PUSH HL 

CALL GETSTUF 

POP HL 

JR D0ALL1 



;P/u HIT entry 

Jump if spare 
Save DEC in reg B 

& to stack 
Pt to dir record for 

this DEC 
Get the dir sector for 
this DEC 

; Same as on in core? 
; Jump if so else 
A ; update one we have and 

; read it into buffer 
; Jump on read error 

; Sysbuf hi-order 
;P/u attributes 
; Test FXDE & in-use 
; If not used or FXDE 
; then back to DOALL1 

; Get the dir info 



Routine to display a mini directory 
C => drive number in binary 

B => option, = display, 1 = buffer stuff 
2 = display /EXT, 3 = buffer /EXT 
4 = space into buffer 
HL => address of buffer to dtuff dir info & EXT 
<= set on valid conclusion 
<= set on any error 



Z 
NZ 



MDIR LD 
CP 
LD 
RET 
CALL 
RET 
CALL 
LD 
LD 
CP 
JP 
LD 
RET 
PUSH 
PUSH 
LD 
LD 

LDIR 
POP 
LD 
OR 



A, 7 
C 

A, 32 
C 

CKDRV 
NZ 

LNKFCB@ 
A,B 

(TSTOPT+1) 
4 

Z, SPACEO 
A, 43 
NC 
HL 
BC 

DE, LILBUF 
BC,3 

BC 
A,C 
'0' 



; Test for bad drive # 
; Init "illegal drive. . . 
; Be sure disk is there 



; Save the regs 
; Stuff the option 



,A 



If option 4, go get 

space info 
Init "SVC parm error 
Back if option > 4 
; Save possible buffer 

; Save possible EXT 



; Get drive # and 
; make it ASCII 



LD 


(DSTDRV+1) ,A 


LD 


A, 5 


LD 


(MDIR11+1) ,A 


LD 


A, 23 


LD 


(CKPAGE+1) ,A 


CALL 


HITRD1 


POP 


DE , 


RET 


NZ , 


JR 


MDIR3 


MDIR1 POP 


BC , 


LD 


H, DIRBUF$>8 


LD 


L,B 


MDIR2 LD 


A,L 


ADD 


A, 32 


LD 


L,A 


JR 


NC, MDIR3 , 


INC 


L 


BIT 


5,L 


JR 


Z, MDIR3 


LD 


A, (TSTOPT+1) 


AND 


1 


JR 


NZ, CLSBUF 


LD 


A,CR 


CALL 


@DSP 


XOR 


A 


RET 




r 

CLSBUF 


LD A, OFFH 


LD 


(DE) , A 


XOR 


A 


RET 




r 

MDIR3 LD 


A, (HL) 


OR 


A 


JR 


NZ, MDIR2 , 


LD 


B,L 


PUSH 


BC , 


LD 


A,L 


AND 


OEOH , 


LD 


L,A 


XOR 


B 


MDIR4 CP 


OFFH , 


JR 


Z, MDIR5 


LD 


(MDIR4+1) ,A , 


CALL 


QDIRRD 


JR 


NZ,MDIR12 


MDIR5 LD 


H, SBUFF$>8 , 


LD 


BC, MDIR1 , 


PUSH 


BC 


TSTOPT 


LD A, 


PUSH 


HL 


PUSH 


DE 


CALL 


TSTSAM 


POP 


DE 


POP 


HL 


RET 


NZ , 


LD 


A, (TSTOPT+1) 



Init to 5 files/line 

& 23 lines/page 

;Read in the HIT 
Rcvr possible buffer 
Exit if read error 

Recover HIT pointer Lo 

Advance to next dir 

record of this sector 



Bypass if still same 

else point to next one 
Finished with 

; this drive? 
; If optionl or 3, 
must stuff buffer end 

else do a blank line 



; Put in buffer terminator 



;P/u HIT entry 

Jump if spare 
Save DEC in reg B 

& to stack 
Pt to dir record for 

this DEC 
Get the dir sector for 

this DEC 
Same as one in core? 

; Jump if so 
Else update one we have 

; and read it into buf 
Jump on read error 
Sysbuf hi-order 
Set up the return addr 



;P/u option # 



; Check for extension match 



Back to MDIR1 



RRCA 

LD 

JR 

AND 

XOR 

RET 

LD 

LDIR 

INC 

INC 

INC 

INC 

LD 

LDIR 

RET 



; Test option 1 or 3 
A, (HL) 
NC,DSPLYIT ;Go if or 2 

;Test FXDE £ in-use bits 

;If not used, FXDE 

;Back to MDIR1 



9 OH 
10H 
NZ 
BC,16 



L 
L 
L 
L 
C,2 



/ User ' s buffer 

; Bypass stored passwords 



; and tnsfer ERN 
;Back to MDIR1 



;Test if we want this 
;Only if in-use & VIS 
;Back to MDIR1 



DSPLYIT AND 0D8H 

XOR 1 OH 

RET NZ 

LD DE, LILBUF+3 

PUSH DE 

CALL STUFBUF ; Move filespec to buffer 

POP HL ;Rcvr LILBUF ptr 

CALL QDSPLY /Display the file 

MDIR11 LD A, / Count down 5-across 

DEC A 

LD (MDIR11+1) ,A /Update count 

RET NZ /Loop if more to go 

LD A, 5 ; else re—init 

LD (MDIR11+1) ,A 

LD A, CR 

CALL @DSP /New line 

CKPAGE LD A, /P/u display count 

DEC A 

LD (CKPAGE+1) ,A 

RET NZ 

LD A, 23 

LD (CKPAGE+1), A /Reset for max 

CALL @KEY /Wait for keyboard input 

JP @CLS /Clear screen and ret 



MDIR12 



RET 



POP BC 



T ST SAM 



TSTS1 



i 


BIT 1,A 


RET 


Z 


LD 


BC,13 


ADD 


HL,BC 


LD 


B,3 


LD 


DE, LILBUF 


LD 


A, (DE) 


CP 


'$' 


JR 


Z, TSTS2 


CP 


'A' 


JR 


C,$+4 


RES 


5, A 


CP 


(HL) 



;Ck if /EXT option 
/Ret with Z if 
/ option <> /EXT 
/Else point to /EXT 
; field of dir record 
; & check for match 

; '$' matches with all 

/If numeric, don't conv 
; to upper case 
/Cvrt to UC if lc 



RET NZ 

TSTS2 INC HL 

INC DE 

DJNZ TSTS1 
RET 



; Ret on no match 
; Loop for 3 chars 



Routine to construct the filespec field 



STUFBUF 


LD A,L 


ADD 


A, 5 


LD 


L,A 


LD 


C,13 


LD 


B, 8 


STUFB1 


LD A, (HL) 


INC 


HL 


CP 


f f 


JR 


Z, STUFB2 


LD 


(DE) , A 


INC 


DE 


DEC 


C 


DJNZ 


STUFB1 


JR 


STUFB3 


STUFB2 


LD A,L 


ADD 


A,B 


DEC 


A 


LD 


L,A 


STUFB3 


LD A, (HL) 


CP 


f f 


JR 


Z, STUFB5 


LD 


A, '/' 


LD 


(DE) , A 


INC 


DE 


DEC 


C 


LD 


B,3 


STUFB4 


LD A, (HL) 


INC 


HL 


CP 


f f 


JR 


Z, STUFB5 


LD 


(DE) , A 


INC 


DE 


DEC 


C 


DJNZ 


STUFB4 


STUFB5 


LD A, 


LD 


(DE) , A 


INC 


DE 


DSTDRV 


LD A, 


LD 


(DE) , A 


INC 


DE 


STUFB6 


LD A, ' ' 


LD 


(DE) , A 


INC 


DE 


DEC 


C 


JR 


NZ, STUFB6 


LD 


A, 3 


LD 


(DE) ,A 


RET 





; Pt to start of filename 

; Init for 15 (—2) chars 
; Filename 

; Exit on 1st space 

; Stuff the char 

; String count down 
; Field loop 

; Bypass ext calculation 
; Calculate start of 

;EXT field in dir record 



; Display EXT if present 

;Exit if no extension 
; Display slash 

; Stuff the char 

;Dsply char countdown 
; 3 chars max for EXT 



; Exit on 1st blank 

;Else stuff the char 



; Loop 3 chars 
; Stuff drive separator 
; Reg C already counted 
for in the init 

;P/u the drive # 



; Stuff a space 



; Count down 

; Display trailing spaces 

; Stuff the ETX 



Routine to get the free space info 



SPACE 



LD 

PUSH 

ADD 

CALL 

POP 

POP 

LD 

LDIR 

XOR 

RET 



PUSH HL 

DE, 16 

DE 

HL,DE 

SPACE 

BC 

DE 

HL, DIRBUF$+ODOH 



; Save buf start 
; Index for space 



/ Get the space data 
/ name & date 
;Nos whlft in the 

disk name and date 



SPACE CALL 
RET 
PUSH 
CALL 
EX 
LD 
LD 
INC 
LD 
AND 
INC 
PUSH 
PUSH 
LD 
LD 
AND 
RLCA 
RLCA 
RLCA 
INC 
CALL 
BIT 
JR 
ADD 
POP 
CALL 
INC 
PUSH 
LD 
LD 
LD 
ADD 
LD 

PUGAT LD 

KEEP 7 SCF 
RRA 
JR 
INC 

BYTEND? 
JR 
INC 
DJNZ 
EX 



@GATRD 

NZ 

IY 

QGTDCT 

DE,HL 

H, 

L, (IY+6) 

HL 

A, (IY+8) 

1FH 

A 

AF 

DE 

E,A 

A, (IY+8) 

OEOH 



;Read GAT 
; Ret on GAT read error 

;Get DCT vector 
;User bufr ptr to DE 
;P/u highest # cylinder 
; & adjust for offset 

;P/u # of sectors/granule 
/Mask out bits 5-7 
/Adjust for offset 
/Save # of sectors/gran 
/Save user bufr ptr 

/Now use grans/cyl 
/Mask out bits 0-4 

& shift to bits 0-2 



A 

@MUL8 

5, (IY+4) 

Z,$+3 

A, A 

BC 

D0MUL1 6 

HL 

HL 

HL, DIRBUF$ 

DE, 

A, (DIRBUF$+OCCH) 

A, 35 

B,A 

A, (HL) 



C, BYTEND? 

DE 

CP OFFH 

NZ,KEEP7 

L 

PUGAT 

DE,HL 



Adj for offset 
Calc # of sectors/cyl 
Double-sided? 
Bypass if one-sided 

else double the count 
Rcvr user buf ptr 

/Calculate total sectors 
Bump to next buf posn 

& save pointer 
Pt to start of GAT 
Init gran counter 

;P/u excess cyls 
Add base # cyls 
Set a loop counter 

;P/u GAT byte 
Keep bit 7 set 
Slide gran bit to carry 
Ignore if in use 
Free, bump gran counter 

/End of byte? 
Loop if not 
Bump GAT byte pointer 
Loop for # cyls 
# free grans -> HL 



POP 


BC 


POP 


AF 


POP 


IY 


D0MUL1 6 


CALL t 


LD 


H,B 


LD 


D,L 


LD 


L,C 


LD 


E,A 


INC 


DE 


INC 


DE 


SRL 


D 


RR 


E 


SRL 


E 


RR 


E 


LD 


(HL) , E 


INC 


HL 


LD 


(HL) , D 


RET 





;Pop user bufr ptr 

; Rcvr # of sectors /gran 

QMUL16 ;Calc # of free sectors 

; Cvrt # of free sectors 

; to free spc in K by 

; dividing the # by 4 

; Round up adjustment 

; Divide 16 bit reg by 2 

; & divide again 

; Stuff the value 



; Read the hash index table 

r 

HITRD1 LD HL,DIRBUF$ ; Pt to System dir bufr 

PUSH BC 

PUSH DE 

CALL QDIRCYL ;Dir cyl to reg D 

LD E,l /Sector one 

CALL @RDSSC ; Read System sector 

POP DE 

POP BC 

LD A, 22 ; "HIT read error " 

RET 

r 

; Routine to locate the address of a module 

• de => pointer to module name 

; HL <= address of module start if found 

; DE <= address of end of nodule name +1 if found 

; Z <= set if found, else NZ & A=error code #8 



GTM2 



; Save this reg pair 

; Init length counter 

; Save name start 

; Bump counter 

; Search for end— of -name 



GTMOD PUSH BC 

LD C, OFFH 

PUSH DE 

GTM1 INC C 

LD A, (DE) 

INC DE 

CP ' ' +1 

JR NC, GTM1 

POP DE ;C = length of name 

r 

; Start search at system core 

r 

LD HL,@$SYS ;Pt to low driver Zone 

; Loop through core searching names 



LD 


A,H 


CP 


@BYTEI0>8 


JR 


NC, GTM2A 



; Are we currently 

; the driver zone? 

; No — check High memory 



In the Driver zone - is it allocated? 



PUSH 


BC 


LD 


BC, (DVRHI$) ; 


OR 


A 


PUSH 


HL 


SBC 


HL, BC 


POP 


HL 


POP 


BC 


JR 


NC, GTM8 



Save BC 

P/u next available 

addr in driver zone 
Is this module 

accounted for in 

the driver zone? 

;No - get out of d/z 



Check the module for legal header 



GTM2A LD 


A, (HL) 


CP 


18H 


JR 


NZ, GTM7 


PUSH 


HL 


INC 


HL 


INC 


HL 


INC 


HL 


INC 


HL 


LD 


A, (HL) 


AND 


OFH 


CP 


C 


JR 


NZ, GTM5 


INC 


HL 


LD 


B,A 


PUSH 


DE 


GTM3 LD 


A, (DE) 


CP 


(HL) 


JR 


NZ, GTM4 


INC 


HL 


INC 


DE 


DJNZ 


GTM3 


EX 


DE,HL 



;Ck for "JR xx" 

;Exit if no JR opcode 
; Save pointer to start 
;Advance 4 bytes to 
; length of name 



;P/u length field 
; Strip flags 
; Lengths match? 

; Point to start of name 

; Set loop counter 

; Save user's name ptr 

; Compare the name 
; strings 

; Go on a mismatch 



; Loop for B=length 
;Name +1 to DE 



Found a match — exit with info 



POP HL 

POP HL 

POP BC 

XOR A 
RET 



; Keep DE to name end +1 

;Module start address 

; Reg restoral 

; Set Z-flg to show 

; found 



No match — loop to next module 



GTM4 


POP 


DE 


GTM5 


POP 


HL 




INC 


HL 




INC 


HL 




LD 


A, (HL) 




INC 


HL 




LD 


H r (HL) 




LD 


L,A 


GTM5A 


INC 


HL 




LD 


A,H 



; Point to last byte 
■ used 

;P/u lo-order of addr 

;P/u hi-order of addr 

; Bump to next address 
; Ck for wrap to zero 



GTM6 



OR 


L 


JR 


NZ, GTM2 


POP 


BC 


LD 


A, 8 


OR 


A 


RET 





; Loop if not through 
; Restore reg BC 
; "Device not avail. . . 
; Set NZ to show error 



GTM7 



GTM8 



Found non-JR opcode — Advance to high memory? 



; Past driver core? 



LD 


A,H 


CP 


@BYTEI0>8 


JR 


NC, GTM6 


LD 


HL, (HIGH$) 


JR 


GTM5A 



;Exit with "not found" 
else p/u himem pointer 
& hup to it if in use 



Check a drive for availability 



CKDRV PUSH 
CALL 
LD 
CP 
JP 

PUSH 
PUSH 
LD 
CP 
JP 

CALL 
JP 

CKDRV1 



IY 

QGTDCT 
A, (IY+O) 
0C3H 

NZ, CKDR5 
HL 
DE 

A, (IY+6) 
(IY+5) 
NC, CKDRV1 
@RSTOR 
NZ,CKDR7A 



; -We use IY in disk I/O 

; Get driver routine addr 
;P/u drive vector 
; JP opcode = drv enabled 
; Bypass if disabled 



;Make sure the current 

; cyl count is in range 
; Go if in range 

; Issue FDC RESTORE cmd 
; Go if error 



D, (IY+5) 

Set 



LD 

E, 

QSEEK 

NZ,CKDR7A 

QRSLCT 

NZ,CKDR7A 

3, (IY+3) 
NZ, CKDR3A 

4, (IY+4) 
NZ, CKDR2B 
QM0D4 

A, (FDDINT$) 
A 

A, 09 
Z, INTRON 
A 



;P/u current track 
for sector 
Set track info to FDC 
Go if error 

;Wait until not busy 
Not there - ret NZ 
If hard drive, bypass 

GAT data update 
If ALIEN ctrlr, bypass 
test of index pulses 

Check 'SMOOTH' Option 

Set MSB of countdown 
INTs on if not 'Smooth ' 
; Divide the count by two 



LD 
CALL 
JR 

CALL 
JR 
BIT 
JR 
BIT 
JR 
IF 
LD 
OR 
LD 
JR 
SRL 
DI 

END IF 

IF @M0D2 

LD A, 20 

END IF 
INTRON LD (CDCNT+1) ,A ; Store in ' LD H,nn 

LD HL,32 ;Set up count (short) 

r 

; Test for diskette in drive & rotating 

r 

CKDR1 CALL INDEX ; Test index pulse 



opcode 



; Loop until pulse 
; Check CKDRV inhibit bit 
; -if on skip index test 
; CKDRV counter (long) 
bove 
; Test index pulse 

; Jump on no index 

; OK for INTs now 

; Index off wait (short) 

; Jump on index 

Diskette is rotating! ! 





JR 


NZ, CKDR1 




BIT 


7, (IY+4) 




JR 


NZ, CKDR2B 


CDCNT 


LD 


H, OOH 




; Coun 


t set from a 


CKDR2 


CALL 


INDEX 




JR 


Z, CKDR2 




IF 


QM0D4 




EI 






END IF 






LD 


HL, 0020H 


CKDR2A 


CALL INDEX 




JR 


NZ, CKDR2A 



CKDR2B 


PUSH AF 




CALL 


QDIRCYL 




LD 


HL, SBUFF$ 




LD 


E,L 




CALL 


@RDSSC 




JR 


NZ,CKDR1 




LD 


HL, (SBUFF 




LD 


A,22H 




ADD 


A,L 




LD 


(IY+6),A 




RES 


5, (IY+4) 




BIT 


5,H 




JR 


Z, CKDR3 




SET 


5, (IY+4) 


CKDR3 


POP 


AF 


CKDR3A 


RLCA 




OR 


(IY+3) 




AND 


8 OH 




ADD 


A, A 


f 

CKDR4 


EQU 
EI 


$ 




POP 


DE 




POP 


HL 


CKDR5 


POP 
RET 


IY 


INDEX 


LD 


A,H 




OR 


L 




JR 


Z, CKDR7 




DEC 


HL 




CALL 


QRSLCT 




BIT 


1,A 




RET 




CKDR7 


POP 


AF 


CKDR7A 


LD A, 8 




OR 


A 




JR 


CKDR4 



; Save FDC status 

; Get directory track in 

;Pt to Sys HIT bufr 

; Sector for GAT 

;Read the GAT 

; Jump on error 
OCCH) ;P/u excess tracks 

;Add offset of 34 

;Max track # to DCT 

; Set to side 

; Test double-sided 

; Jump if only single 

; Set for side 2 

; Recover FDC status 

; Shi ft write prot to 7 
; Merge Soft WP bit 

;Mask unwanted 

; Write prot to C-flg 



; Check countdown timer 

;Err exit if 

; Reselect drive 
; Test index pulse 



; Set device no avail 
;Set NZ 
;Exit 



LILBUF 



DS 



18 



LAST EQU $ 

IF $.GT.DIRBUF$ 

ADISP 'ERROR: Module too big' 

END IF 

ORG MAXCOR$-2 

DEFW LAST-SYS12 ; Overlay size 

r 

END SYS 12 



;SYS13/ASM - LS-DOS 6.2 

AD ISP '<SYS13 - LS-DOS 6 . 2> 



CR EQU 13 

LF EQU 1 

*GET 'COPYCOM:! 



; Copyright message 



ORG 



1E00H 



SYS 13 JR 
DS 



START 
32%0 



; Slack 



START AND 
CP 
JP 

N0SYS13 

RST 

LD 

LD 

LD 

RST 

XOR 

RET 



; Strip bit 7 
;Go if 0111 0000 

; to no <*> command 

; Get flags 



7 OH 
7 OH 

Z, NOCMD 
LD A, 101 

40 

(IY+'E'-'A') ,0 ; Reset ECI flag 

HL, NXCI$ ; "No ECI present . . . 

A, 12 ;Display and log it 

40 
A ; Z=no error 



NOCMD LD 
LD 
RST 
XOR 
RET 



HL, NOCMD $ 

A, 12 

40 

A 



; "No sysl3 . . . 

; Display and log it 



NXCI$ DB 'No Extended Command Interpreter Present, as SYS13 ' 

DB LF, CR 

NOCMD$ DB 'No command <*> present, as SYS13 ' 

DB LF, CR 

*LIST OFF 

DEFS -$&OFFH%0 

DEFS 256%0 
*LIST ON 

LAST EQU $-1 



END 



SYS 13 



;SYSINIT4/ASM - LS-DOS 6.2 

f 

; This is the initialization part of SYSRES 



TRKREG EQU 0F1H ; FDC track register 

; Keyboard row 1 
; Keyboard rows 6&7 
; Keyboard row 7 
; Beginning of line 



KB1 EQU 0F401H 

KB 67 EQU OF 4 6 OH 

KB7 EQU OF 4 4 OH 

BOL EQU 29 

f 

ORG 1E00H+START$ 



DI 

LD HL,@RSTNMI ; Reset NMI vector to 

LD (@NMI+1) ,HL ; SYSRES ' s needs 

LD HL,PAKNAM$ ; Pt to pack name 

LD DE,2*80+CRTBGN$+30 

LD BC, 8 

LDIR ;Move pack name to CRT 

LD C, 8 ;B contains already 

INC DE ; Leave 2 spaces 

INC DE 

LDIR ;Move pack date to CRT 

Initialization routines 



XOR 


A 


LD 


HL, STACK$+1 , 


CLRLOOP 


DEC L 


LD 


(HL) , A 


JR 


NZ, CLRLOOP , 


r 

IM 


1 


LD 


SP, STACK$ 


XOR 


A 


LD 


(LBANK$) , A , 


OUT 


(0E4H),A 


LD 


HL, S1DCB$ 


ZERDCB 


LD (HL) , A 


INC 


L 


JR 


NZ, ZERDCB 


LD 


A, (MODOUT$) , 


OUT 


(OECH),A 


LD 


A, (WRINT$) 


OUT 


(OEOH),A 


LD 


A, (OPREG$) , 


LD 


B,A 


LD 


A, 0A7H 


LD 


C, @ OP REG 


OUT 


(C),B 


LD 


HL, -1 


LD 


(HIGH$) , HL 


LD 


(PHIGH$) , HL 


; Check 


the BANKS 


LD 


D, (HL) 



; Clear out stack area 

ack start +1 

;Move down a byte 
; Now loop an fill 

and fill with 's 



; Set the stack area 



; Disable INTRQ & DRQ 



; Zero spare DCB area 



; Set high speed (4 MHz) 
and external bus 

; Enable RTC interrupts 

; Set memory configuration 

; Value for AUX/RAM 
; Set the memory mgt port 
; Bring up reg RAM 
;Ck for extended RAM 



; Save what's in RAM 



LD 


(HL) , 55H 


OUT 


(C),A 


LD 


E, (HL) 


LD 


(HL),A 


OUT 


(C),B 


CP 


(HL) 


LD 


(HL) , D 


OUT 


(C),A 


LD 


(HL) , E 


OUT 


(C),B 


LD 


A, OFEH 


JR 


Z,$+4 


LD 


A, 0F8H 


LD 


(BAR$) , A 


LD 


(BUR$) , A 


LD 


A, (FEMSK$) 


OUT 


(OFEH) , A 


DS 


3%0 



: Stuff in reg RAM 
■Switch in alt RAM 

; Save th byte there 

; Stuff alt RAM 
: Switch to reg RAM 
: See what's there now 

; Restore original value 
■Back to reg RAM 

; Restore original byte 
■Back to reg RAM 

; Init BAR$ for bank 
: Bypass if only 64K 

; Init BAR$ for bank 0-2 
■Load Bank Avail RAM 
■Load Bank Used RAM 
:P/u port FE mask 

& set it 
; Space for a JP instr 



Update DCT$ info for SYSTEM drive 



LD 


A, (BOOTST$) 


AND 


3 


LD 


B,A 


LD 


HL, DCT$+3 


LD 


A, (HL) 


AND 


OFCH 


OR 


B 


LD 


(HL) , A 


IN 


A, (TRKREG) 


LD 


(DCT$+5) ,A 


LD 


DE, KIDCB$ 


LD 


A, 3 


CALL 


@CTL 


EI 





;P/u Boot step rate 

; Strip all but bits 0,1 

; Save tempy 

;Pt to DCT Step 

;P/u DCT Step 
; Strip bits 0, 1 
; Merge boot step fr B 

; Update DCT 
; Update DCT with current 
; track posn of head 

; Flush type, init ptrs 
; Clear type-ahead fctn 
;Send to *KI 
; Interrupts on 



P/u CONFIG status & set ZERO byte 



LD HL, ZERO$ 

LD A, (HL) 

LD (HL) , 

PUSH AF 



;Set to NOP if SYSGENed 
;Make always zero byte 
;Save SYS GEN flag 



Check if date prompt is to be suppressed 

LD A, (DTPMT$) ; No prompt for DATE? 

OR A 

Check on currency of date 



LD 


HL, DAT. 


LD 


C, (HL) 


LD 


(HL) , 


INC 


HL 


LD 


B, (HL) 


LD 


(HL) , 



; Point to Year 

; & save in reg C 

; while resetting to zero 
; Bump to day 

; & save in reg B 

; while resetting to zero 



INC 

LD 

LD 

JP 

LD 

IF 

LD 

DEC 

LD 

ELSE 

LD 

DEC 

LD 

END IF 



HL ; Bump to Month 

A, (HL) ; & save in reg A 

(HL) , ; while resetting to zero 

NZ,TIMIN ;Ck time if DATE=OFF 

L, OFFHS (CFGFCB$+31) ;Reset pointer 



@INTL 
(HL) , B 
HL 
(HL) , A 

(HL) , A 
HL 
(HL) , B 



; Stuff day 
; Stuff month 
; Stuff month 
; Stuff day 



DEC 
LD 
EX 
DEC 
CP 
JR 
r 

DAT IN LD 
LD 
LD 
CALL 
JR 

DAT INI 

LD 

SUB 

CP 

JR 

AND 

LD 

JR 

LD 

SET 

INC 

NOTLEAP 
LD 

IF 

NOP 

ELSE 

INC 

END IF 

INC 

LD 

LD 

DEC 

CP 

JR 

DEC 

ADD 

LD 



HL 

(HL) , C 
DE,HL 
A 
12 
C, DAT INI 



; Stuff Year 
& point DE to CFGFCB$+29 
; Check for month range <1—12> 
;0K if 0-11 now 



HL, 27! (21<8) ; Set video row, col 

DE,DATEPR ;DATE? question 
BC, '0'!8<8 ;Set buf len & char 
GETPARM ; Get response 

NC, DATIN ; Jump on format error 

LD A, (DE) ; Is year a leap year? 

C,A ; Save year for later 

80 ; Reduce for range test 

8 

NC, DATIN 
3 

A, 28 

NZ, NOTLEAP 
HL, DATE$+3+l 
7, (HL) 

A ;Feb to 29 days 

LD HL,MAXDAY$+2 ; Set Feb max day # 

(HL) , A 



; Init February 

; Set leap flag 



@INTL 



DE 

DE 

A, (DE) 

B,A 

A 

12 

NC, DATIN 

HL 

A,L 

L,A 



; Keep same length 

; Bump to DAY 

; Bump to month & get it 

; Save month in reg B 
; Range check 

;Go if or >12 

; Point to Jan entry 

; Index the month 



IF @INTL 

INC DE 
ELSE 

DEC DE 
END IF 

LD A, (DE) 

DEC A 

CP (HL) 

JR NC, DATIN 



; Point to day 
; Point to day 



;P/u day entry 
; Reduce for range test 



; Go if too large (or 0) 
Range checks OK - move into DATE$ 

; Compensate for DEC A 
; Stuff month 

; Stuff day 

; Stuff year 

Date is in DATE$ - display it 



LD 


HL, DAT, 


INC 


A 


LD 


(HL) , B 


DEC 


L 


LD 


(HL) ,A 


DEC 


L 


LD 


(HL) , C 



LD A,C 

PUSH AF 
AND 



; Save year for later 
3 ; Check on leap year 

LD HL,MAXDAY$+2 ; Init and adjust Feb 

LD (HL) , 28 ; as required 

JR NZ, $+3 

INC (HL) ;Bump to 29 

LD A, (DATE$+2) ; P/u month & Xfer to B 

LD B,A 

LD A, (DATE$+1) ;P/u day of month 

Compute day of year and day of week 



; Start off with days 
; in this month 



DAY LP 



LD 


L,A 


LD 


H,0 


LD 


DE, MAXDAY$ 


LD 


A, (DE) 


ADD 


A,L 


LD 


L,A 


ADC 


A,H 


SUB 


L 


LD 


H,A 


INC 


DE 


DJNZ 


DAY LP 


EX 


DE,HL 


LD 


HL, DATE$+3 


LD 


(HL) , E 


INC 


HL 


LD 


A,D 


OR 


(HL) 


LD 


(HL) , A 


EX 


DE,HL 


POP 


AF 


AND 


7 



;8 bit add to 16 bit 

;Add in high order & carry 
; Subtract off low order 
; Update high order 



;Move day of year to DE 
; and store 



;Get bit "8" 

; and OR it in 

; Then put it back 
;Get Day of Yr back to HL 
; Pop the year & mask 
; Compute day of the week 



LD 


E,A 


; offset 


ADD 


A, 3 




RRCA 






RRCA 






AND 


3 




ADD 


A,E 




LD 


E,A 


; And add it in 


LD 


D,0 


;Add into HL 


ADD 


HL,DE 




INC 


HL 


; To start in right place 


LD 


C, 7 


;Now divide by 7 (B=0) 


DIV7 SBC 


HL,BC 


; Subtract weeks (7-days) 


JR 


NC, DIV7 


; Until underflow 


LD 


A,L 




ADD 


A, 8 


; Add back to get 1-7 


LD 


B,A 


; Save in reg B 


RLCA 




; Shift to bits 1-3 


LD 


C,A 


; Save tempy 


LD 


HL, DATE$+3+l 


LD 


A, (HL) 


;Pack into field 


AND 


0F1H 




OR 


C 




LD 


(HL) , A 




PUSH 


BC 




LD 


HL,27! (21<8) ; Set video row, col 


LD 


B,3 


; Set function code 3 


CALL 


@VDCTL 


; to position cursor 


POP 


BC 




LD 


HL, DAYTBL$ 




CALL 


SPACE4 


; Write out the DAY 


LD 


A ' ' 




CALL 


@DSP 




LD 


A, ' ' 




CALL 


@DSP 




LD 


A, (DATE$+2) 


;P/u month number 


LD 


B,A 




LD 


L,MONTBL$&0FFH ; Reset HL for month table 


CALL 


DSPMDY 


; Write out the month name 


LD 


A, ' ' 




CALL 


@DSP 




LD 


A, (DATE$+1) 


;P/u day 


DEC 


B 


;From to X ' FF ' 


DIVIO INC 


B 


; Divide by 10 


SUB 


10 


; with quotient in B 


JR 


NC, DIV1 




PUSH 


AF 


; Save remainder (-1 0) 


LD 


A,B 


;P/u quotient 


ADD 


A, '0' 


; Change to ASCII 


CP 


'0' 


; Zero ? 


CALL 


NZ, @DSP 


; Display if not 


POP 


AF 


; Get back remainder 


ADD 


A, 3 AH 


; Change to ASCII 


CALL 


@DSP 




LD 


HL, PARTYR 


;Part of year 


CALL 


QDSPLY 




LD 


A, (DATE$) 


; Form last year digit 


AND 


7 





ADD A, ' 0' 
CALL @DSP 



and display it 



Prompt for time 



TIMIN LD 
OR 
JR 

TIMINO 

LD 



A, (TMPMT$) ; Time to be prompted 

A 

NZ,SELDCT ;Skip if not 

LD HL,27! (22<8) 

DE, TIMEPR ; Set prompt message 
LD BC, '0'!(8<8) ; Set len & separ char 

CALL GETPARM 

JR NC, TIMINO ;Loop on format error 

31 

; Test hour range 



; Test minute range 

; Test the second range 



LD 


HL, CFGFC 


LD 


A, 23 


CP 


(HL) 


JR 


C, TIMINO 


DEC 


HL 


LD 


A, 59 


CP 


(HL) 


JR 


C, TIMINO 


DEC 


HL 


CP 


(HL) 


JR 


C, TIMINO 


LD 


DE, TIME$ 


LD 


BC,3 


LDIR 





;Move the time value 

into the TIME$ field 



; Check on any AUTO coimand 

r 

SELDCT LD HL, INBUF$ 

LD A, (HL) ;Pt to 1st byte of AUTO 

CP '*' ;<BREAK> disable? 

JR NZ, CKDCR 

INC HL 

LD A, 0E6H ;Set <BREAK> bit in flag by 

LD (STUB1+1) ,A ; changing RES 4, (SFLAG$) 

to SET 4, (SFLAG$) 

AUTO? 

CALL ENADIS_DO_RAM 

A, (KBHKB7) ;Scan row 1 S 7 



JR 
GETKB1 7 

LD 

RET 
CKDCR CALL GETKB17 

BIT 4, A 

PUSH HL 

LD HL, @ABORT 



EX 

JP 

POP 

CPL 

AND 

JR 

AUTO? LD 
CP 

N0AUT1 

LD 
LD 



(SP) , HL 
NZ, @ DEBUG 
DE 



Z, N0AUT1 

A, (HL) 

CR 

POP DE 

A,D 

DE, @EXIT 



; Strobe keyboard 
; Is 'D' depressed? 
; Save auto command pt 
;P/u abort address 

; Swap them around 
• DEBUG on <D> 
; Stack integrity 

;No AUTO if <ENTER> 

;Any AUTO command? 
;None if equal 

;Get back SYSGEN flag 
; & move into reg A 
; Where to go after boot 



LD 
JR 

PUSH 
LD 
INC 
POP 
LD 

PUSH 
LD 
LD 
LD 
NOAUT PUSH 
PUSH 
LD 
LD 
LD 

PUSH 
LDIR 
CALL 
LD 
LD 
LD 
EXX 
AND 
RET 
LD 
LD 
CALL 
LD 
CALL 
LD 
JP 



BC, 
Z, NOAUT 
HL 

HL, CURSET 
(HL) 
HL 

DE, @CMNDI 
DE 
B,H 
C,L 

DE, @DSPLY 
DE 
BC 
HL, STUB 
DE,MOD3BUF+80 
BC, STUBLEN ; 
DE 



;Init BC(HL)=0 for @EXIT 

;Go if no AUTO 
; Save buffer pointer 
; Point to cursor setting 
; Bump it down a line 
; Recover INBUF$ pointer 
;Low order of @CMNDI 
;Put on stack for RET 
;Put INBUF$ pointer on 

stack for @CMNDI 
; But do this first 
;Put on stack for RET 
; Either INBUF$ or 



;Must move out of way 
; amount to move 
; Add ret vector to stack 
;Move stub up 



GETKB67 
DE, DCT$ 
HL,MOD3BUF 
BC,80 

82H 

NZ 

HL,21<8 

B,3 

@VDCTL 

HL, CONFIG$ 

@DSPLY 

DE, CFGFCB$ 

@LOAD 



; Set up to move DCTs 
; from confined area 
; Count fo DCTs (8*10) 
; Keep in alternate set 
; Load con fig if zero 
;No con fig > Go back 

;Set to line 21 
; Position cursor 

; Show Sysgen message 

; Set up to load config 
;Go to load CONFIG/SYS 



CONFIG$ DB '** SYSGEN **',03 ; Config DSPLY 

f 

GETKB67 LD HL,KB67 ; Check <CLEAR> key 

LD C,A 

CALL ENADIS_DO_RAM 

LD A,C 

OR (HL) ;Key down OR not SYSGENed 

RET 

; Final initialization code 



STUB 


LD 


HL, SFLAG$ 


STUB1 


RES 


4, (HL) 




JR 


NZ, NOTSG 




LD 


HL,MODOUT$ 




LD 


A, (HL) 




OUT 


(OECH) ,A 




EXX 






LDIR 






CALL 


QICNFG 


NOTSG 


EQU 


$ 




LD 


C, 7 


SETCYLO 


EQU $ 



; Test or SET Break bit 
; without changing Z/NZ 
;Go if no SYSGEN found 
;P/u ptr to port mask 

;P/u mask byte 
; Speed it up 
; Set to move DCTs 
;Move them 

; Init config 



NOFF 



CURSET 



CALL 


@GTDCT 


BIT 


3, (IY+3) 


JR 


NZ, NOFF 


LD 


(IY+5) , 0FF1 


LD 


A, (RSTOR$) 


OR 


A 


CALL 


Z, @RSTOR 


DEC 


C 


JR 


NZ, SETCYLO 


LD 


HL,21<8 


1 


EQU $-1 


LD 


B,3 


CALL 


gVDCTL 



;If hard drive, don't stuff FF 

; & don't restore 
; Set in case no restore 
; Do we restore the drives? 

; Restore drives 1-7 



; Set cursor 



Detect Model 4 
Look at 'MODEL 



or 4P and adjust TFLAG$ 
' at 4018H. If so, M0D-4P (5) 



LD 
LD 
SBC 
LD 
JR 
LD 
MOD 4 REG 



DE, 'OM' 

HL, (4018H) 

HL,DE 

A, 4 

NZ, MOD 4 REG 

A, 5 



;Lo/Hi of 'MO' in 
;P/u 4P ROM leftover 
; Check if it's 'MO' 
; Init for regular MOD 4 

; Change to MOD 4P 



'MODEL ' 



LD 



(TFLAG$) ,A ; Init machine type flag 



LD 
LD 
POP 
RET 
DS 
STUBEND 
STUBLEN 



HL, @RST38 
(HL) , 0C3H 
HL 

12%0 

EQU $ 

EQU STUBEND-STUB 



; Insert JP instruction to 
; activate task processor 
;Pop INBUF$ 

; To @CMD or QDSPLY, @CMNDI 
; Zero fill for future code 



Date and Time prompting 



GETPARM 


PUSH BC 




PUSH 


DE 


f 


LD 


B,3 




CALL 


@VDCTL 




POP 


HL 


r 


CALL 


QDSPLY 




LD 


HL, OVERLAY 


; 


POP 


BC 




PUSH 


BC 


f 


CALL 


@ KEY IN 




XOR 


A 


r 


OR 


B 




POP 


BC 


f 


RET 


Z 


r 


PUSH 


BC 




LD 


B, 4 OH 


r 


CALL 


QPAUSE 




POP 


BC 





; Save separator char 
; Save message pointer 

; Position the cursor 
Recover message pointer 

; & display the message 
Buffer for reply 

Use/save again separator 

; Get reply & wait a bit 
disable test 

of key prior to AUTO 
; Ret with NC if no entry 

; Delay for wait 

; to let finger off 



Routine to parse DATE entry 



PARSDAT LD DE, CFGFCB$+31 ; Point to end of buffer 

LD B,3 ; Process 3 fields 

PRSD1 PUSH DE ;Save pointer 

; Routine to parse a digit pair 



CALL 


PRSD3 


JR 


NC, PRSD2 


LD 


E,A 


RLCA 




RLCA 




ADD 


A,E 


RLCA 




LD 


E,A 


CALL 


PRSD3 


JR 


NC, PRSD2 


ADD 


A,E 


LD 


E,A 


SCF 




LD 


A,E 


PRSD2 POP 


DE 


RET 


NC 


LD 


(DE) , A 


DEC 


B 


SCF 




RET 


Z 


DEC 


DE 


LD 


A, (HL) 


INC 


HL 


CP 


f . f 


JR 


Z, PRSD1 


CP 


C 


JR 


NC, PRSD4 


JR 


PRSD1 


PRSD3 LD 


A, (HL) 


INC 


HL 


SUB 


3 OH 


PRSD4 CP 


10 


RET 





; Get a digit 

; Jump if bad digit 

; Multiply by 10 



; Get another digit 

; Jump on bad digit 

; Accumulate new digit 

; Save 2-digit value 

; Show valid 

;Xfer field value 

; Recover pointer 

: Ret if bad digit pair 

;Else stuff the value 
; Loop countdown 

; Ret when through 

; Point to preceding field 

; Ck for valid separator 
; Bump pointer 
; Check for colon ' : ' 

; loop if match 
: Separator char required 
;Exit if bad char 
else loop now 

;P/u a digit & 
convert to binary 



Routine to display month or day of week 



SPACE4 


PUSH HL 


; Print 4 SPACES 


LD 


HL, SPACE 4$ 


; point to string 


CALL 


QDSPLY 




POP 


HL 




DSPMDY 


DEC B 


; Point to Bth entry 


LD 


A,L 


; in table 


ADD 


A,B 




ADD 


A,B 




ADD 


A,B 




LD 


L,A 




LD 


B,3 


; Print 3 characters 


DSPM1 LD 


A, (HL) 




INC 


HL 




CALL 


@DSP 




DJNZ 


DSPM1 





RET 
PARTYR DB ', 198 ',30, 3 

IF @INTL 

DATEPR DB 30, 'Date DD/MM/YY ? ' ,3 

ELSE 
DATEPR DB 30, 'Date MM/DD/YY ? ' ,3 

END IF 

r 

TIMEPR DB 30, 'Time HH:MM:SS ? ' ,3 

SPACE4$ DB ' ' ,03,03 ; 3 (or 4) space string 

DS 32%00 ; Space for future messages 

END 



;SYSRES/ASM - LS-DOS 6.2 

AD ISP '<SYSRES - LS-DOS 6.2>' 
LF EQU 1 

CR EQU 13 



*LIST OFF 

*REF 'LDOS60/EQU-.1' 

*LIST ON 

*GET 'COPYCOM:!' 



;Xref of Lowcore 



; Embed copyright notice 

ADISP '<System low core assignments> ' 

LDOS 6.2 Low Core RAM storage assignments 
Copyright (C) 1982 by Logical Systems, Inc. 



START$ 



ORG 



EQU 
0+START$ 



Page - RST's, data, and buffers 



QRSTOO 

LD 

OUT 

DB 

@RST08 

DW 

SVCRET$ 

LSVC$ DB 

FDD I NT $ 

RET 

QRST10 

DW 

USTOR$ 

QRST18 

DW 

PDRV$ DB 

PHIGH$ 

LOW$ DW 

QRST20 

DW 

LDRV$ DB 

JDCB$ DW 

JRET$ DW 

QRST28 

TIMSL$ 

TIMER$ 

TIME$ DS 

QRST30 

DATE$ DS 

QRST38 

OSRLS$ 



DI ;IPL Entry for R/S 4-P 

A, 00000001B ;Set image in A 



(9CH) , A 

0,0,0 

RET 





DW 

DI 

RET 



DS 

RET 



1 

DW 

3000H 

RET 









JP 

DB 

DB 

3%0 

JP 

5 

JP 

DB 



; Toggle in BOOT/ROM 
CP/M emulator SVC 



; Return address from SVC 
• Last SVC executed 

;NOP or DI (F3H) for 
System (Smooth) 



/User storage area 



/Current drive, physical 

/Physical HIGH$ 
/Lowest usable memory 



/Current drive, logical 

/Saved FCB pointer 

/Saved I/O return address 
RST28 /System SVC processor 

55H ;Fast=55, slow=FF 

;RTC counter 

; SS:MM:HH storage area 
@ DEBUG /DEBUG call address 

; YY/DD/MM/packed 
RST38Q /Interrupt RST 

OOH /OS release # 



/ INTIM$ stores the image read from RDINTSTATUS* 
INTIM$ DB ; Interrupt latch image 

; INTMSK$ masks the image read from RDINTSTATUS* 



/ LDOS 6.x permits only RS-232 RCV INT, IOBUS INT, 
; and RTC INT to be used by the TASKER off of RST38 

INTMSK$ DB 2CH /Mask for INTIM$ 

r 

/ INTVC$ stores the eight vectors associatd 

/ with the INTIM$ bit assignments 

INTVC$ DW RETINST /Primary interrupts 

DW RETINST, RTCPROC, RETINST 

DW RETINST, RETINST, RETINST, RETINST 

; TCB$ stores the TCB vectors for task slots 0-11 

r 

TCB$ DS 24 ; Interrupt task vectors 

r 

} NMI vector used In disk I/O 

r 

@NMI DS 3 /Don't overlay this 

r 

; OVRLY$ stores the system' s overlay request # 

OVRLY$ DB /Current overlay resident 

r 

; FLGTAB$ stores 26 flags and images. A pointer 

/ to this table is obtained from SVC-@FLAGS 

/ 

FLGTAB$ EQU $ 

/ 

/ 

; AFLAG$ - Start CYL for Allocation search 

r 

AFLAG$ DB 01 /AFLAG 

DB /BFLAG 

r 

/ CFLAG$ assignments : 

/ - Cannot change HIGH$ via SVC-100 

/ 1 - @CMNDR in execution 

2 - QKEYIN request from SYS1 
/ 3 - System request for drivers, filters, DCTs 

; 4 - @CMNDR to only execute LIB commands 

; 5 - Sysgen inhibit bit 

/ 6 - @ERROR inhibit display 

; 7 - @ERROR to use user (DE) buffer 

r 

CFLAG$ DB /Condition flag 

r 

/ DFLAG$ assignments: 

; - SPOOL is active 

; 1 - TYPE ahead is active 

/ 2 - VERIFY is on 

; 3 - SMOOTH active 

/ 4 - MemDISK active 

; 5 - FORMS active 

/ 6 - KSM active 

; 7 - accept GRAPHICS in screen print 



DFLAG$ DB 00001010B ;DEVFlag (SMOOTH, TYPE) 

r 

• EFLAG$ - Assignments (sysl3 usage) 

; use only bits 4, 5 and 6 to indicate user 

; entry code to be passed to SYS13. SYS13 
; will be executed from SYS1 if this byte 

; is NON/0, bit 4, 5 and 6 will be merged into 

the SYS13 (1000, 1111b) overlay request 



EFLAG$ 


DB 





;Flag E 


FEMSK$ 


DB 





;Port FE mask 


DS 


2%0 




; Flags G-H 



IFLAG$ - Assignments: (INTBINATIONAL) 

- FRENCH 

1 - GERMAN 

2 - SWISS 

3 - reserved for future languages 

4 - reserved for future languages 

5 - reserved for future languages 

6 - Special DMP mode ON/OFF 

7 - '7' bit mode ON/OFF 



IFLAG$ 


EQU $ 


IF 


QFRENCH 


DB 


01000001B 


END IF 


IF 


@ GERMAN 


DB 


01000010B 


END IF 


IF 


@USA 


DB 





END IF 


DB 


;Flag J 


; KFLAG$ assignments: 


o - 


BREAK latch 


1 - 


PAUSE latch 


2 - 


ENTER latch 


3 - 


reserved 


4 - 


reserved 


5 - 


CAPS lock 


6 - 


reserved 


7 - 


character in TYPE ahead 



KFLAG$ DB ; Keyboard flag 

r 

; LFLAG$ assignments: 

; - inhibit step rate question in FORMAT 

; 4 - inhibit 8" query in FLOPPY /DCT 

; 5 - inhibit # sides question in FORMAT 

; 6,7— Reserved for IM 2 hardware 

r 

LFLAG$ DB 00110001B ; LDOS feature inhibit 

r 

; MODOUT$ mask assignments 

; - undefined 



; 1 - cassette motor on/off 

2 - mode select (0 = 80/64, 1 = 40/32) 

; 3 - enable alternate character set 

; 4 - enable external I/O 

; 5 - video wait states (0 = disable, 1 = enable) 

; 6 - clock speed (1 = 4 Mhz, 0=2 Mhz) 

; 7 - undefined 

r 

IF @INTL 

MODOUT$ DB 01110000B ; MODOUT international 

ELSE 

MODOUT $ DB 0111100 OB ; MODOUT port image (FAST) 

END IF 



; NFLAG$ - Network flag$ 

; - Allow setting of file open bit in DIR 

; 1 / 5 - Reserved 

; 6 - Set if in Task Processor 

; 7 - Reserved 

r 

DB ; Inhibit open bit in DIR 

r 

; OPREG$ memory management image port 

; - SELO - Select map overlay bit 

; 1 - SEL1 - Select map overlay bit 1 

2 - 80/64 - 1 = 80 x 24 

; 3 - Inverse video 

; 4 - MBITO - memory map bit 

; 5 - MBIT1 - memory map bit 1 

; 6 - FXUPMEM - fix upper memory 

; 7 - PAGE - page IK video RAM (set for 80x24) 

f 

OPREG$ DB 10000111B ; Memory management image 

r 

/ PFLAG$ - Printer flag 

; 7 = Printer spooler is paused 

; - 6 = Reserved 

r 

DB 

DB ; QFLAG$ 

/ 

; RFLAG$ - Retry init for FDC driver 

r 

RFLAG$ DB 08 ; FDC retry count >=2 

r 

• SFLAG$ assignments : 

; - inhibit file open bit 

; 1 - set to 1 if bit-2 set & EXEC file opened 

; 2 - set by @RUN to permit load of EXEC file 

/ 3 - SYSTEM (FAST) 

; 4 - BREAK key disabled 

; 5 - JCL active 

; 6 - force extended error messages 

/ 7 - DEBUG to be turned on after LOAD 

r 

SFLAG$ DB 00001000B ; System flag (FAST) 



/ Machine TYPE assignment : 
; All values are in decimal 

r 

/ 2 = TRS-80 Model 2 

/ 4 = TRS-80 Model 4 

5 = TRS-80 Model 4P 

12 = TRS-80 Model 12 

16 = TRS-80 Model 16 

IF @M0D4 

TFLAG$ DB 04 ; Model 4 assignment 

ELSE 

ADISP 'ERROR: Undefined machine TYPE for TFLAG ' 
END IF 
DB /Flag U 

F 

; Video FLAG$ assignments : 

; 0-3 - Set blink rate (l=fastest, 7=slowest) 

4 - display CLOCK 
; 5 - cursor blink toggle bit 

; 6 - Inhibit blinking cursor (user) 

; 7 - Inhibit blinking cursor (system) 

VFLAG$ DB ; Blink, Slow, No clock 

; WRINT$ — interrupt mask register 

; - enable 1500 baud rising edge 

; 1 - enable 1500 baud falling edge 

; 2 - enable Real Time Clock INT 

; 3 - enable I/O bus interrupts 

; 4 - enable RS—232 transmit interrupts 

; 5 - enable RS-232 receive data interrupts 

; 6 - enable RS-232 error interrupt 

F 

WRINT$ DB 00000100B ; WRINTMASK port image 

DS 3%0 ;Flags X,Y and Z 

; Contents are high-order byte of SVC table 

DB SVCTAB$>8 ;MSB of SVC table 

; OSVER$ stores the operating system version 

r 

OSVER$ DB 62 H ; OS version # 

/ 

; Vector for config initialization 

F 

@ICNFG RET ; Initialization config 

DW 

F 

; Chain vector for KI task processor 

F 

QKITSK RET ; Keyboard task routine 

DW 



/ System File Control Block for overlays 

r 

SFCB$ DB 80H,0,0 /System /SYS FCB 

DW SBUFF$ 

DB 

DW 0,0,0,-1,0,-1,-1 

r 

; 32-byte DEBUG save area 
DBGSV$ DS 32 

r 

; Job Control Language file control block 

r 

JFCB$ DS 3%0 

DW SBUFF$ 

DS 2 7 

/ 

; System Command Line file control block 

r 

CFCB$ EQU $ ; Command Interpreter FCB 

CFGFCB $ DB ' CONFIG/ S YS . CCC : ' , 3 

DS 15 

; Page 1 - System Supervisor Call Table 

SVCTAB$ EQU $ 

IF $.NEQ.100H 

ADISP 'ERROR: SVCTBL location violation' 

END IF 

; Initial version 

r 

MAXCOR$ EQU 2400H+START$ 

MINCOR$ EQU 3000H+START$ 

ORG QBYTEIO 

f 

; File positioning routines - MUST BE FIRST 
ADISP ' <File positioning aibroutines> ' 

*GET 'FILPOSN:! ' 

PAGE 
CORE$ DEFL $ 

ORG CRTBGN$+13 

DB 'LS-DOS 06.02.00' 

IF @USA 

DB ' ' 

END IF 

IF @ GERMAN 

DB 'D' 

END IF 

IF QFRENCH 

DB 'F' 

END IF 

DB '- Copyright 1984 ' 

DB 'Logical Systems Inc. ' 

ORG CRTBGN$+80+14 



DB 'All Rights Reserved. ' 

DB 'Licensed to ' 

ORG CORE$ 

f 

; Get the System Loader 

ADISP ' <System Loader and associated routines> ' 

*GET 'LOADER: 1' 

ADISP '<System front end & task processor>' 

/ 

*GET ' TASKER : 1 ' 

IF $.GT.1D00H+START$ 

ADISP 'ERROR: SYSRES memory overflow' 

END IF 
CORE$ DEFL $ 

DS 1DOOH-CORE$%0 

ORG CORE$ 

ORG 1D00H+START$ 
SBUFF$ EQU $ 

DS 256 /Page disk I/O buffer 

DIRBUF$ EQU MAXCOR$-256 ; Another file buffer 

; Get the system initialization module 

OVERLAY EQU $ 

ADISP ' <System initialization routines> ' 

■? 

/ • 

*GET 'SYSINIT4-.1 ' 

ADISP '<Misc. lowcore routines> ' 

*GET 'SOUND:!' 

ADISP ' <Sign-on LOGO display> ' 
*GET 'LOGO:l' 

r 

END OVERLAY 



; TASKER/ASM - LS-DOS 6.2 

r 

; Interrupt task table, IM 1 

CORE$ DEFL $ 

ORG TCB$ 

DW NOTASK, NOTASK, NOTASK, NOTASK 

DW NOTASK, NOTASK, NOTASK, NOTASK 

DW NOTASK, NOTASK, TYPTSK$, NOTASK 

ORG CORE$ 

; Model IV task processor 



RST38@ 


EQU $ 


EX 


(SP) , HL 


LD 


(PCSAVE$) , HL 


EX 


(SP) , HL 


PUSH 


HL 


PUSH 


AF 


LD 


HL, NFLAG$ 


SET 


6, (HL) 


LD 


HL, LBANK$ 


LD 


A, (HL) 


LD 


(HL) , 


PUSH 


AF 


LD 


HL, OPREG$ 


LD 


A, (HL) 


PUSH 


AF 


AND 


8CH 


OR 


3 


LD 


(HL) , A 


OUT 


(84H) ,A 


INT L AT 


EQU OEOH 


IN 


A, (OEOH) 


CPL 




LD 


HL, INTIM$ 


LD 


(HL) , A 


INC 


L 


AND 


(HL) 


JR 


Z, TSTBRK 


NXTVCT 


INC L 


RRA 




JR 


C, ACTVTSK 


NXTMSK 


INC L 


OR 


A 


JR 


NZ, NXTVCT 


TSTBRK 


CALL KCK@ 


JR 


NZ, BREAK? 


TSKEXIT 


POP AF 


LD 


(OPREG$) , A , 


OUT 


(84H) ,A 


POP 


AF 


LD 


(LBANK$) , A 


LD 


HL, NFLAG$ 


RES 


6, (HL) 



POP 



AF 



; Save for TRACE tsk 

Save HL for now 
Save AF for now 
Show the system we 

; are in the TASKER 
P/u S save the current 

; logical bank # 



Get current memory 

; configuration 
& save it 
Strip bits 0, 1, 4-6 
Bring up regular 64K 



Get interrupt latch 
Mod IV is reverse 
Store state of int 

Advance to int mask 
Mask the latch bits 
Go if nothing interrupted 

;Ck on INTVC$ 
Ck if device interrupted 

;Ck all 8 bits of mask 
When finished, ck overhead 
task routine 

;Test <BREAK>, <SHIFT> 
Go if break 

; Get previous mem config 
& restore RAM bank 



;Now leaving the TASKER 

; show the system 
; Restore previous regs 



POP 
EI 
RETINST 



HL 



RET 



Found active INTVC$ 



ACTVTSK PUSH AF ; Save the regs 

PUSH BC 

PUSH DE 

PUSH HL 

PUSH IX 

LD DE,POPREGS ; Stack Return vector 

PUSH DE 

LD E, (HL) 

INC L 

LD D, (HL) 

EX DE, HL 

JP (HL) 



;P/u INTVC pointer vector 



; Shift it to HL 

; Go to service routine 



Register restoral after service routine 
IX 



POPREGS 


POP 


POP 


HL 


POP 


DE 


POP 


BC 


POP 


AF 


JR 


NXTMSK 



; Loop to next mask bit 



<BREAK> key detected 



BREAK? JR 

PUSH BC 
DI 

CALL TAPDRV 

POP BC 

JR TSKEXIT 



NC, GOTBRK ; Go if <BREAK> only 
;Was <SHIFT-BREAK>? 

; Reselect drive 



<BREAK> during tasking - enter DEBUG? - user Break? 

A, (SFLAG$) ; Check if <BREAK> key is 
disabled to inhibit 
DEBUG and BREAK vectors 
Merge DEBUG flag & 

hook (X'OO' orX'C9') 
Turn off DEBUG 
Point to @DEBUG vector & 
go if DEBUG is active 

; Don ' t allow vectored break 
if old PC is in SYSRES 

or if old PC is 
above HIGH$ 

else ck if BREAK is 



GOTBRK 


LD A, (SFLS 


AND 


10H 


JR 


NZ, TSKEXIT ; 


LD 


HL, @DBGHK 


OR 


(HL) 


LD 


(HL) , 0C9H 


INC 


HL 


JR 


Z, EXITBRK 


r 

LD 


A, (PCSAVE$+1) 


CP 


MAXCOR$>8 


JR 


C, TSKEXIT 


LD 


HL, HIGH$+1 ; 


CP 


(HL) 


JR 


NC, TSKEXIT 


LD 


HL, 


BRKVEC$ 


EQU $-2 



LD 


A,H 


OR 


L 


JR 


Z, TSKEXIT 


EXITBRK 


POP AF 


POP 


AF 


POP 


AF 


EX 


(SP) , HL 


EI 




RET 





; Real 

r 

RTCPROC 
IN 
LD 
CALL 
LD 
RLC 
RET 
LD 

PUSH 
LD 
CALL 
LD 

CALL 
LD 
CALL 
LD 
INC 
LD 
AND 

RTCTASK 

ADD 

LD 

LD 

LD 

LD 

INC 

LD 

PUSH 

POP 

EX 

LD 

INC 

LD 

EX 

JP 



; to be tapped by user 

; Discard old mem con fig 
; Restore reg AF 

;P/u HL & stack vector 

; To DEBUG or BREAK vector 

Time Clock interrupt processor 



EQU $ 
A, (OECH) 
A, 11 
RTCTASK 
HL, TIMSL$ 

(HL) 
NC 

DE, TIMTSK$ 
DE 
A, 8 

RTCTASK 
A, 9 

RTCTASK 
A, 10 
RTCTASK 
HL, TIMER$ 

(HL) 
A, (HL) 

7 
RLCA 



; Clear the RTC Interrupt 
; Task 11 executes every 
; RTC interrupt 

;Ck on the time slice 
; Ignore if nothing 
; on this interrupt 
; else init for docker 
;Task 8 at INT/2 if fast 

;Task 9 at INT/2 if fast 

;Task 10 at INT/2 if fast 

;Bump the timer at INT/2 



;P/u the heart beat 
; For this interrupt, 

; consider 0-7 only 
A,TCB$SOFFH ; Add offset to table 
L,A 

H, TCB$>8 
(@RPTSK+1) ,HL 



QKLTSK 



LD 

SUB 

RRCA 



E, (HL) 
L 

D, (HL) 
DE 
IX 
DE,HL 

E, (HL) 
HL 

D, (HL) 
DE,HL 

(HL) 

POP DE 

A, (@RPTSK+1) 

TCB$&OFFH 



;P/u task vector addr 

;Also to IX 

;P/u task entry point 

; Go to task 

; Remove ret 

;Pt to task tbl entry 



@RMTSK 



QADTSK 



RET 



LD DE,NOTASK ; Remove entry 

CP 12 ; Too large a task? 

NC ; Return if too big else 



RLCA 




ADD 


A, TCB$SOFF 


LD 


L,A 


LD 


H, TCB$>8 


CHGTASK 


DI 


LD 


(HL) , E 


INC 


L 


LD 


(HL) , D 


EI 




RET 




NOTASK 


DW $-1 


@RPTSK 


LD HL, 


LD 


E, (HL) 


INC 


HL 


LD 


D, (HL) 


EX 


DE,HL 


POP 


DE 


JR 


CHGTASK 



add to task table 



;Estab ptr to vector 



; Vector address to 
pointer table 



; Current task vector 

;P/u last task done 
;P/u task vector addr 



;Pop ret addr 



Routine to check if task slot active 



@CKTSK 



c 


RLCA 


ADD 


A, TCB$S0FFH+1 


LD 


L,A 


LD 


H, TCB$>8 


LD 


A,N0TASK>8 /( 


CP 


(HL) 


RET 


f 


END 





; Task number * 2 

; Index to task table 



; Check match of high 
order only 
Z or NZ result 



